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PREFACE 


This is as much a “why to”’ book as a “‘how to”’ book. By 
leading you through a hands-on tutorial, we will develop 
your ability to design your own graphics programs on the 
IBM PC. The emphasis is on improving your ability to pur- 
sue your own ideas. Rather than just showing you pretty 
pictures, we provide the tools needed to create pictures, 
games, charts, diagrams, and artwork of all kinds. Rather 
than present you with dozens of program listings too long 
to type, we take you through each graphics command 
with both short ‘‘hands-on’’ examples and carefully 
designed, thoroughly explained sample programs. We also 
take you through the process of designing two arcade-style 
games, two graphing programs, and a character-generator 
program that lets you define your own fonts. You will 
understand how each program works and, more impor- 
tantly, how to apply this knowledge to developing your 
own programs. 

Advanced BASIC on the IBM Personal Computer is a 
powerful graphics language, vastly superior to earlier 
microcomputer BASICs. Advanced BASIC makes sophisti- 
cated graphics readily available to the average program- 
mer for the first time. This book is designed to be a key to 
your growth in tapping the power of your PC. We will give 
you a comprehensive knowledge of the tools available, as 
well as a solid understanding of good program design. If 
you are already familiar with BASIC and the IBM PC, this 
book is an excellent complement to your skills. It fills in 
the missing details and plugs the gaps in your knowledge. 


If you are not familiar with BASIC or the PC, this book will 
get you started and, as an extra benefit, provide you witha 
lot of useful experience with BASIC language in general. 

We expect you will take this book off the shelf time and 
again for reference use. Much of the information we have 
gathered in two years of working with the PC is presented 
in detail, including useful applications, undocumented 
capabilities, and traps to avoid. 

One of the great strengths of the PC is that all the funda- 
mental graphics functions are part of the language. The 
programmer need not waste time programming basics, 
such as dots, lines, and circles. This allows the program- 
mer to spend time designing the programs, leaving the 
imagination free to wander. We will familiarize you with 
the graphics tools that BASIC makes available, and get 
you started applying them—the imagination is up to you! 

There are many fine books about specific graphics tech- 
niques, such as plotting three-dimensional surfaces, or 
windowing, clipping, and zooming, but this book is not 
one of them. These topics require an entire book simply 
for a proper introduction and are much more appropriate 
for high-powered mainframe computers than for micro- 
computers. The IBM PC is ideal for producing colorful, de- 
tailed displays without requiring that the programmer in- 
vest years in special training. 

There’s not a great deal that you need to know before we 
start. You do need an IBM PC with a Color/Graphics 
Adapter (more about this in Chapter 1) and a disk drive. 
Familiarity with the PC and BASIC is useful, but not 
required. A willingness to participate by entering the 
examples is essential for you to benefit properly from this 
book. 

Let’s get going—and welcome to the world of PC graph- 
ics! 

DAN ILLOWSKY AND MICHAEL ABRASH 


We thank Mark Karaman and Morris Blackman for their 
photographic assistance. We also express our sincere grat- 
itude to Lisa Stahr of PC World magazine for helping us 
get our feet wet in technical writing. And, of course, we 
extend special thanks to Barbara and Shay. 
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A NOTE TO THE READER 


The programs in this book were not written as applica- 
tions software but as educational examples of what your 
personal computer can do. All of the programs have been 
tested and work on the machine configuration for which 
they were designed. The programs, or subroutines, are 
unprotected. This means that you can modify them to bet- 
ter understand how they work or to fit a different machine 
configuration. 


What Is a Combo Pack? 


A Combo Pack, like this package, is a step beyond your 
average technical book. While most books give you pro- 
gramming examples through printed listings (which we do 
here), Combo Packs provide the book and the listings 
recorded on magnetic media, either diskette, cassette 
tape, or both. 

Every effort has been made to be clear, concise, and 
informative about how these programs and routines work. 
If you experience any difficulty with the software opera- 
tions, the solution can be found in the book or in your 
computer manuals. 

We are rather proud of the time and effort that went into 
preparing the Combo Pack. If you have purchased the 
Combo Pack and have enjoyed using it, let us know your 
thoughts. Your comments will be valuable in preparing 
future Combo Packs. 


LOADING INSTRUCTIONS 


If you bought this book as part of a Combo Pack, a disk 
is included. Instructions for using the disk follow. 

You will need to create a system disk with DOS and 
BASICA on it. Neither DOS or BASICA is included with 
this disk. If you do not have them, they are available from 
your IBM dealer. 

The following instructions for creating a system disk 
assume that your computer has two disk drives. If it only 


has one, refer to the IBM DOS manual for information spe- 
cific to your hardware configuration. 


Ls 
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Insert your IBM DOS System Disk in drive A (left- 
hand drive), then turn on your computer or reboot it 
by pressing Ctrl-Alt-Del Insert a blank disk in 
drive B (right-hand drive). Type FORMAT B:/S and 
press Enter You will then be prompted to ensure that 
you have the proper disks in the drives. Press Enter 
and the disk in drive B will be formatted. 


. When the disk is formatted, type COPY BASICA.COM 


B: and press Enter This will copy BASICA to the disk 
in drive B. 


. Remove the IBM DOS System Disk from drive A. 
. Insert the Combo Pack Disk in drive A. 
. Type COPY *.* B: and press Enter This will copy all 


of the program files from the Combo Pack disk to the 
disk in drive B. 


. Remove the Combo Pack disk from drive A and put it 


in a safe place. 


. Label the disk in drive B as your new Combo Pack 


master disk. 


You have created a system disk including the Combo 
Pack programs. You can use this disk to boot from, and 
then run BASICA. At that point, you can load and work 
with any of the files on the disk. 
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PART 1 


AROUND THE PC 


CHAPTER 1 


GETTING STARTED WITH 
YOUR PC 


In the next two chapters, we will provide you with the 
background necessary to start the actual tutorial on 
graphics. You should feel free to skip any information in 
either of these chapters with which you already feel com- 
fortable. Chapter 3 begins the actual graphics tutorial. In 
Chapter 1, we will explain the equipment and software 
you will need, how to start up your IBM PC, and how to 
make your own disk to use with this book. 

We will teach you quite a bit about BASIC in general in 
the course of providing you with enough information to 
start the graphics tutorial, and further aspects of BASIC 
will be discussed as needed in the following chapters. If 
you have no previous experience with BASIC, IBM’s 
BASIC manual, which was included when you purchased 
your computer, is an excellent additional reference. Refer 
to it any time you are uncertain or simply want more 
information about the BASIC language. 


REQUIRED EQUIPMENT 


There are many possible equipment combinations for the 
IBM Personal Computer, also known as the PC. There is a 
minimum configuration required for this tutorial. A sys- 
tem unit, keyboard, 64K of memory, the PC-DOS operat- 
ing system, and Advanced BASIC are necessary. Also 
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needed is a plug-in board called the Color/Graphics 
Adapter, and therein lies a tale. 


Dual Screens 


Most microcomputers have a single screen on which both 
text and graphics can be displayed. The screen may have 
several different modes, but there is only the single screen. 

IBM took a different approach. IBM wanted a computer 
that produced the sharpest, clearest text possible to 
attract the word-processing and business market. IBM also 
wanted a computer capable of color graphics as good as 
anything available in the PC’s price range. Rather than 
compromise on a screen which excelled at neither text dis- 
play nor graphics, IBM chose to offer the buyer the choice 
of either a text screen or a graphics screen (or both). 

The text screen is IBM’s monochrome screen (Fig. 1-1). 
It has a sharp green display and no graphics capabilities. 
The screen is driven by an add-on board called the Mono- 
chrome Adapter, which plugs into one of the five available 
expansion slots inside the PC. There are also a few screens 
now available from manufacturers other than IBM that 
work with the Monochrome Adapter. Any screen driven 
by the Monochrome Adapter cannot produce graphics. 

The graphics screen may be a television screen, a black 
and white monitor, or a color monitor. Any of these 
screens can be driven by the Color/Graphics Adapter (Fig. 
1-2), an add-on board which, like the Monochrome 
Adapter, plugs into an expansion slot inside the PC. In 
fact, about the only screen the Color/Graphics Adapter 
can’t drive is IBM’s monochrome screen. The graphics 
screen can display either text or graphics; however, the 
text displayed is not of the quality of that produced on the 
monochrome screen. The Color/Graphics Adapter can pro- 
duce up to 16 colors or can draw up to 200 rows by 640 
columns of dots. 

Because this tutorial is about graphics, it is essential 
that you have a Color/Graphics Adapter installed in your 
PC, although you may have the Monochrome Adapter as 
well. Because graphics are so important to this tutorial, we 
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Fig. 1-2. Color/Graphics Adapter card. 


will take a moment here to discuss the various screens 
that may be used with the Color/Graphics Adapter. 


Color/Graphics Screens 


The quality of graphics possible with the Color/Graphics 
Adapter varies greatly with the type of screen. The follow- 
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ing discussion is intended to serve two purposes. First, if 
you are planning to purchase a Color/Graphics Adapter, 
our description should help you match a screen to your 
needs. Second, the results you get from lower-quality 
screens can be quite different from what you might 
expect, particularly when color is involved. 

The screens used with the Color/Graphics Adapter fall 
into three groups: composite monitors, RGB monitors, and 
televisions. Composite monitors (Fig. 1-3) often have black 
and white (or green or amber), as well as multicolored, 
screens. Essentially a tv with the channel changer 
removed, these monitors must decode one signal into the 
three necessary color signals before producing a picture. 
The better composite monitors include features such as 
antiglare screens and contrast control. 


Fig. 1-3. Composite monitor. 


An RGB monitor (Fig. 1-4) accepts red, green, and blue 
color signals directly (hence the name RGB). RGB moni- 
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tors are typically constructed to higher standards than are 
composite monitors, and provide the highest-quality pic- 
ture with the fewest problems. RGB monitors are also cor- 
respondingly expensive. 


Fig. 1-4. RGB monitor. 


A television set (Fig. 1-5) accepts a signal through an 
antenna, and then must decode the signal twice before 
producing a picture. Televisions are designed to display 
program broadcasts rather than computer output, and, 
while they are adequate for graphics, they are barely 
acceptable for text work (even when only 40 columns of 
text are displayed). A television is not a good choice for the 
only monitor in a system. 

To produce both graphics and extensive text work, 
either a high-quality RGB monitor or a monochrome 
screen is a better choice than a tv. A standard black and 
white monitor, such as one of those made by NEC and 
Sanyo, is an excellent choice for those on a budget (Fig. 1- 
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Fig. 1-5. Television used as IBM PC monitor. 


3). Such a monitor is more than adequate for text work 
and can also display graphics, albeit not in color. Together 
the Color/Graphics Adapter and a monitor cost about 
$500; for less than the price of the Monochrome Adapter 
and screen, you can have both graphics and text capabil- 
ity. One last option is to use any of the displays in conjunc- 
tion with IBM’s monochrome screen; in this case, the text 
quality of the color screen is immaterial because most text 
work will take place on the monochrome screen. 

Figs. 1A, 1B, and 1C (see the color photograph section) 
show the three types of displays. (The programs which 
produce the images shown in Figs. 1A, 1B, and 1C are not 
available in this book.) Color, resolution, and clarity really 
do vary widely among RGB monitors, composite monitors, 
and televisions. 

There are potential problems with each of the types of 
displays. Televisions and composite monitors tend to be 
able to display only every other column of colored graph- 
ics. Only RGB monitors display 80-column text well, and 
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only on RGB monitors do all color combinations display 
legibly. If your display does not match what we claim in 
this tutorial, the quality of your display may be the culprit. 
Even if your display is of high quality, your colors may dif- 
fer from ours—different models often display different col- 
ors even when functioning properly. 

Even RGB monitors have a potential problem. Some 
models lack an intensity lead; the result is that these mod- 
els can display only 8 of the PC’s 16 available colors. In 
general, monitors designed specifically for the PC do not 
have this problem. 

Test a monitor thoroughly before buying it. Check that 
it has an intensity lead, that 80-column text is legible (for 
word processing), and that it displays every colored dot if 
your work requires detailed display in color. The program 
shown in Listing 1-1 can be helpful for testing the legibil- 
ity and color quality of a monitor, producing the test dis- 
play shown in Figs. 2A, 2B, and 2C (see the color photo- 
graph section). (We will tell you how to enter and run a 
program shortly.) 

Each monitor is attached in a different fashion. RGB 
monitors attach to the multipin connector on the back of 
the Color/Graphics Adapter (Fig. 1-6). Composite monitors 
attach to the jack just above the RGB connector (Fig. 1-6). 
Televisions require an additional piece of equipment 
called an RF modulator. The RF modulator attaches to 
the Color/Graphics Adapter inside the PC (your computer 
store will probably help you install it), and sits on the back 
side of the computer (Fig. 1-6). A cable leads from the RF 
modulator to a connection box on the tv (Fig. 1-7); the 
cable should be looped around an iron ring as shown to 
reduce interference. The connection box has a switch that 
lets the user select between normal television stations and 
the computer display. This switch should always be in the 
‘computer’ position when the PC is displaying something 
on the tv screen. An RF modulator typically costs about 
thirty dollars. 


Other Color/Graphics Adapters 
Several companies besides IBM now produce Color/Graph- 
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Listing 1-1. Color Text Modes. 
180 REM A program that demonstrates the color text modes. 


118 REM 


139 REM 


88 character text mode may be illegible on TV's 
126 REM and low-quality monitors. 


This program is useful 


for testing the quality of a color monitor. 


149 SCREEN 9,1:COLOR ,@:KEY OFF:CLS 'Set COLOR TEXT MODE 


158 DIM AS$(4%) 


‘Set aside memory 


16@ AS="4@ CHARACTER COLOR TEXT MODE" 


176 WIDTH 49 
188 LOCATE ,,% 
196 X=5 

206 GOSUB 299 


"Set to 48 characters on line 
‘Turn cursor off 

‘Set printing location 
‘Display text on screen 


218 AS="8@ CHARACTER COLOR TEXT MODE" 


228 COLOR ,@:WIDTH 8 

238 LOCATE ,,@ 

248 X=25 

258 GOSUB 290 

268 WIDTH 4% 

276 COLOR 7,0,0:KEY ON:CLS 
288 END 

299 FOR BG=% TO 7 


388 LOCATE 5+BG,X 

319 FOR FG=1 TO LEN(AS) 
328 COLOR FG MOD 32,BG,4 
338 PRINT MIDS(AS$,FG,1); 
348 NEXT FG 

350 PRINT 

368 NEXT BG 


‘89 columns/black background 
‘Turn cursor off 

‘Set printing location 
"Display text on screen 
"Set back to 49 colums 
"Restore screen 

‘Return control to BASIC 
‘Each line is printed in 

' a different color 
"Characters will be 16 

' different characters 
"Display the next character 
‘Display characters until 
"done displaying all 
eight lines 


379 COLOR 7,8:LOCATE 18,X:PRINT "PRESS ANY KEY TO CONTINUE" 


380 AS=INKEY$:IF AS="" THEN 380 


398 RETURN 


MODULATOR 


TO 
TELEVISION 


TO COMPOSITE 
MONITOR 


‘Wait for key to continue 
‘Finished with this string 


TO IBM 
MONOCHROME 
MONITOR 


MONITOR 


Fig. 1-6. Display connectors. 


PC 
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Fig. 1-7. Connection box. 


ics Adapters, and the number is growing. Some of these 
alternative boards provide more colors, or higher resolu- 
tion, than IBM’s board, while some have serial or parallel 
ports, extra memory, or monochrome capability as well as 
the Color/Graphics Adapter circuitry. All provide some- 
thing that the IBM adapter does not, and the alternative 
boards often save money, expansion slots, or both. 

The single most important point to consider when buy- 
ing a non-IBM Color/Graphics Adapter is how much like 
the IBM adapter it works and how important that similar- 
ity is to you. For example, an adapter that produces only a 
640 column by 400 row screen would produce detailed 
pictures, but would not properly support the vast majority 
of existing graphics programs. Also, the more powerful 
alternative adapters require RGB monitors to function 
properly. Most alternative Color/Graphics Adapters pro- 
vide the option of operating just like the IBM adapter, but 
make sure that this is the case before purchasing. Finally, 
remember that if you develop software that takes advan- 
tage of any special features of a non-IBM adapter, other PC 
owners will be unable to use that software unless they 
have the same adapter you do. 


24 


Getting Started with Your PC 


The Keyboard 


There are several other pieces of equipment that you 
should be familiar with before we begin using the PC. Let’s 
start with the keyboard. 

The keyboard (Fig. 1-8) is discussed in both the DOS and 
BASIC manuals. There are a few features that we will 
point out now, as we will be working with them later. 


Fig. 1-8. The IBM PC keyboard. 


The most important key is the Enter key. This is the 
double-height gray key above the PrtSc key, with an 
arrow angled down and to the left on it. The Enter key is 
used to send whole command lines to the computer and 
will be referred to frequently. 

Incidentally, the PC counts everything you type before 
you press Enter as one line. Typed lines can reach the 
right margin and wrap around to the next line down par- 
ticularly when the screen is only 40 columns wide. Occa- 
sionally (for example, when running the DISKCOPY pro- 
gram), the computer acts after receiving a single charac- 
ter, but, in general, the PC does nothing until the Enter 
key has been pressed. The Enter key is analogous to the 
Return or Newline keys on other computers. 

Spaces are important in command lines, so type them, 
too. We often omit commas and periods, so the lines 
printed in this book appear precisely as they are to be 
typed. 
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A control key is entered by holding down the Ctrl key 
and pressing the specified key once. (The Ctrl key is at the 
middle left of the keyboard.) For example, Crtl-C means to 
hold the Ctrl key down while pressing the C key once. 
There are two special control keys. Ctrl-Break will stop 
any BASIC program. (The Break key is at the top right of 
the keyboard, and is also labeled Scroll Lock.) Crtl-Num 
Lock will suspend any program, and pressing any other 
key will continue the program. (The Num Lock key is next 
to the Scroll Lock key.) 

The Alt key, located at the lower left of the keyboard, 
works in conjunction with other keys much as does the 
Ctrl key. 

There are 10 keys set apart at the left of the keyboard. 
These keys are numbered F1 through F10. These are the 
function or soft keys, and have a special purpose in BASIC 
to be discussed subsequently. 

The Esc (for Escape) key is at the top left of the key- 
board. 

The Backspace key (labeled only with a left arrow) is 
directly to the left of the Num Lock key. This key erases 
the last character typed. 

The set of 11 white keys at the far right is a dual-pur- 
pose keypad. Normally, these keys perform functions such 
as moving the cursor around the screen, inserting, and 
deleting. If, however, the Num Lock key is pressed, the 
keys become numeric and send the numbers shown on 
them. Thus the Home key can send the number 7. If the 
Num Lock key is pressed again, the keypad returns to its 
original state. 

One special key combination is Ctrl-Alt-Del (pressing 
the Crtl, Alt, and Del keys simultaneously). This causes 
the PC to completely restart, and will get you out of almost 
any jam. However, you will lose whatever you were work- 
ing on, so use this with care. Incidentally, switching the 
PC off, waiting 10 seconds (or until you hear the internal 
fan stop), and switching the power back on will get you 
out of any jam, but again you will lose any work in prog- 
ress. 
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Disk Drives 


Disk drives are used to store the equivalent of up to 
360,000 characters of programs and data on floppy disks 
(Fig. 1-9). The use of disk drives is described in the DOS 
manual. Our only caution is to emphasize that you should 
never touch those parts of the disks exposed through the 
jacket cutouts. Always keep the disk in its protective 
jacket when it is not in the drive. Disks are not designed 
for strength, occasionally wear out, and are vulnerable to 
smoke, coffee, and fingerprints, so you must be careful— 
and you absolutely must keep at least one backup of any 
important disks. The 30 seconds of your time required to 
back up a disk is nothing compared to the time required to 
recreate lost information. The disk copying procedure is 
detailed in the DOS manual. 


Fig. 1-9. Floppy disk drive. 


Note that the term ‘‘disk’”’ can refer to either the disk 
drive or to the floppy disk that you insert into the disk 
drive. It is the floppy disk that contains information. 


Software 


PC-DOS (which we will simply call ‘‘DOS’’ from now on) 
and Advanced BASIC are all the software required for this 
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tutorial. Both programs are on the disk that came with 
your DOS manual. You should never use master disks 
such as the DOS disk that came with your PC; if you have 
not already done so, make several copies of your DOS disk, 
as described in the DOS manual. 


AND. . . ACTION 


We can now begin to use the PC. First, open the door on 
drive A: (the left-hand drive) by lifting up gently. Then 
place a working copy of the DOS disk in drive A. The label 
on the disk should be facing up, and the edge with the oval 
cutout in it should be the first edge into the computer. 
Your fingers should be well away from any exposed sur- 
faces (Fig. 1-10). (This process is covered in detail in the 
DOS manual—refer to it if you have any questions.) Insert 
the disk straight in until you feel a gentle click, and then 
shut the drive door (Fig. 1-11). If the door won’t shut, the 
disk is not all the way in. Now turn on the computer by 
moving the switch located on the rear right side of the sys- 
tem unit to the up position. You will hear the fan start to 
spin. Also, turn your monitor on at this point. 

After some time—the exact length varies with the equip- 
ment in your PC—the disk drive light will go on. You will 
be asked for the date and time. It is a good idea always to 
answer these prompts accurately, so that later you will 
know, for example, when you last changed a program or 
which version is most current. The date is given in month/ 
day/year format and the time is given in hour:minute 
form. 

You will then receive the prompt: 


A> 


which indicates that DOS is waiting for you. You have suc- 
cessfully started your computer. This process is known as 
booting the computer. If you do not get the A> prompt, 
consult your DOS manual, which contains complete 
instructions on starting DOS. One note: if you have both 
the Monochrome and Color/Graphics Adapters, your sys- 
tem will most likely boot with the initial display on the 
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MOUNT 


Fig. 1-10. Holding the disk. 


monochrome monitor. We will tell you how to switch mon- 
itors shortly. 

DOS provides you with an environment in which you 
can run programs that are stored on a disk. This is done 
by typing the name of the program and pressing Enter in 
response to the A> prompt. Advanced BASIC is the pro- 
gram BASICA.COM on the DOS disk. To run Advanced 
BASIC, type: 


BASICA and press Enter 


in response to the A> prompt. Try this now. In DOS it 
doesn’t matter whether you use uppercase, lowercase, or a 
mixture of the two. 

The screen will clear, and you will receive Advanced 
BASIC’s sign-on message which includes: the version of 
BASIC, the amount of memory free, and the standard 
BASIC prompt Ok. If you have 128K or more memory, 
there will be about 60,000 bytes free. BASIC can never 
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Fig. 1-11. Disk insertion. 


have more room available than this, no matter how much 
memory you have. If you have less than 128K of memory, 
your BASIC workspace will be smaller than the 60,000 
maximum. This will make no difference with regard to our 
tutorial, but it will limit the maximum size of BASIC pro- 
grams you can run. 

Note. that whenever we say “‘BASIC’’ from now on, 
we mean Advanced BASIC, that is, the program 
BASICA.COM rather than the more limited BASIC.COM. 

By and large, BASIC is self-contained, and we will con- 
centrate on BASIC rather than DOS; still, there are a few 
DOS commands that are particularly useful. DISKCOPY 
enables you to back up disks; FORMAT initializes a blank 
disk so that your files can be saved on it; CHKDSK lets you 
know how much room is left on a disk; and DIR lists the 
names and sizes of the files on a disk. Any of these com- 
mands may be entered in response to the A> prompt. 
Each command is discussed in detail in the DOS manual; 
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be sure to study the manual before using any DOS com- 
mand. 


CREATING YOUR BASIC DISK 


We don’t need most of the programs on the DOS disk for 
our BASIC work. Because there is not a large amount of 
space left on the DOS disk, it makes sense for us to make a 
separate disk customized to meet our needs. 

Make sure the DOS disk is in the left-hand drive. If you 
are in BASIC, type the command: 


SYSTEM and press Enter 


When you see the A> prompt, you are ready to begin. If 
you have trouble, just switch off the computer, wait a few 
seconds, and turn the computer back on. This will get you 
out of any jam, but you may lose work in progress. 

You will need a blank disk. We suggest you put a write- 
protect tab over the write-enable notch on the DOS disk. 
This will guarantee that you cannot “‘wipe out’’ the con- 
tents of that disk. With the DOS disk in drive A: (the left- 
hand drive), type: 


FORMAT A:/S and press Enter 


When the computer prompts you to press any key, remove 
the DOS disk and put the blank disk in drive A:, then press 
a key. When the disk is formatted, the monitor will show a 
message indicating how much room there is on the disk. 
This will be 160,256 or 322,560, depending on whether 
you have single- or double-sided disk drives. Jot down this 
number for later reference. Then type the character N in 
response to the prompt: 


FORMAT ANOTHER (Y/N) 


You will see the A> prompt on your monitor. 

Now copy the BASICA.COM program onto your new 
BASIC disk. If you have two disk drives, put the DOS disk 
in drive B: and type: 


COPY B:BASICA.COM A: 
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If you have one drive, type: 
COPY B:BASICA.COM A: 


and follow the prompts on the screen. (The DOS disk is the 
source disk.) 

Now label the new disk as your graphics tutorial 
workspace. All of our work will take place on this disk. To 
start sessions from now on, just boot this disk, type: 


BASICA 


in response to the A> prompt, and switch screens if neces- 
sary, as discussed in the next chapter. 

If you have single-sided disk drives, you will run out of 
space during the tutorial if you save all the files you type. 
(You have a single-sided drive if the PC printed 160,256 for 
the amount of disk space available on the disk previously 
mentioned.) When you run out of space, you will receive 
one of two error messages: ““Too many files’ or “Full 
disk’’. If this happens, format another disk, label it as your 
graphics tutorial workspace disk No. 2, and use it from 
then on. You will have to retype what you had attempted 
to save. Alternatively, you could use the KILL command 
to make some room on the disk, but because you may 
want to refer to the programs later, you might as well keep 
the programs and use a second disk. 

You can use the DOS command CHKDSK to see how 
much room is left on the disk, and head trouble off at the 
pass by switching to a second disk before you have to. The 
DOS manual contains information on the CHKDSK com- 
mand. 

If you have a hard disk, you can use it if you wish, but in 
order to keep your tutorial files separate, and to avoid the 
possibility of accidentally affecting other, nontutorial files, 
we suggest you use a floppy disk for this tutorial. 


ONWARD TO BASIC 


You now know how to set up and boot your PC and how to 
use some of the features of DOS. It’s time to begin using 
BASIC. 
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GETTING STARTED WITH BASIC 


In this chapter we will tell you how to start BASIC, how to 
make sure you are on the correct screen, and how to cre- 
ate, run, and save BASIC programs. We will also cover 
fundamental concepts of BASIC, as well as details about 
using BASIC such as program modification and error han- 
dling. Finally, we will give you a sample of what your PC 
can do. 

Note that this book was designed for BASIC 1.1. If you 
are using another version of BASIC, you may notice some 
slight differences. 


GETTING ONTO THE GRAPHICS SCREEN 


To start Advanced BASIC, boot the BASIC disk you made 
in Chapter 1, then type: 


BASICA and press Enter 


in response to the A> prompt. For those of you with only 
the Color/Graphics Adapter, that’s all there is to starting 
BASIC. However, those of you with both the Monochrome 
Adapter and the Color/Graphics Adapter have some work 
to do. If you have only the Color/Graphics Adapter screen, 
skip to the “A SIMPLE TEST”’ heading further on in this 
chapter. 

If you have both adapters, and the A> prompt appears 
on the monochrome screen, then you must run a BASIC 
program to switch to the graphics screen because graphics 
cannot be done on the monochrome screen. If you have 
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both adapters, odds are that your PC will, in fact, boot on 
the monochrome screen. You can boot on the graphics 
screen by resetting the switches inside the PC if you wish; 
consult IBM’s Guide to Operations manual for more 
details. 

To switch screens, you must first enter a BASIC pro- 
gram, named Switch, that will switch screens, then save 
the program to disk so you can readily run it each time 
you start BASIC. We will take you through this process 
step by step. 

First, start Advanced BASIC by typing: 


BASICA and pressing Enter 


in response to the A> prompt. If you are using a Combo 
Pack disk, load the program by typing: 


LOAD '"'Lz-1"' 


Then skip to the RUN command described on the next 
page. Load any of the listings in this book by using LOAD 
and the listing number. Then type in the program shown 
in Listing 2-1 exactly as it appears. (If your screen displays 
40 columns of text, some lines will wrap when they reach 
the right margin. Keep typing. Don’t press Enter until the 
line is complete.) At the end of each line, press the Enter 
key. You can check what you have typed by typing the 
command: 


LIST and pressing Enter 


If you make a mistake, just retype the line properly. If 
you have a great deal of trouble, type: 


NEW and press Enter 


to clear your previous work, and retype the entire pro- 
gram. 

Once you are certain the program is typed correctly, 
type the command: 


RUN and press Enter 
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Listing 2-1. Switch. 


1@8 REM Program to switch from color/graphics adapter 
118 REM to monochrome adapter or vice-versa. 
126 REM Figure which adapter is active & swicth to other 
138 LOCATE 1,1,8:DEF SEG=0:A=(PEEK(1040) AND 48): 
IF A<>48 GOTO 210 
149 REM Switch to color/graphics adapter 
150 KEY OFF:CLS 
168 A=PEEK(104G) :POKE 1648, (A AND 287) OR 32 
17% SCREEN @,2:COLOR 7,@:LOCATE 1,1,1,6,7 
180 KEY ON:WIDTH 46 
199 END 
206 REM Switch to monochrome adapter 
210 KEY OFF:CLS 
22@ A=PEEK(1040):POKE 1848,A OR 48 
238 SCREEN %,@:COLOR 7,9:LOCATE 1,1,1,12,13 
249 KEY ON:WIDIH 80 
259 END 


The monochrome screen will blink off, the graphics 
screen will go blank, and the Ok prompt will appear on the 
graphics screen. Type: 


RUN and press Enter 


again, and you will find yourself back on the monochrome 
screen. Switch senses which screen you are on and 
switches to the other screen. If the program fails to work, 
reboot the system, restart BASIC, and retype the program 
Switch as described above. If you have problems, don’t 
despair—getting started is often the hardest part. 

When you are sure that Switch works, make certain 
that your new tutorial disk is in drive A: (the left-hand 
drive), type: 


SAVE "SWITCH" and press Enter 


and wait for the Ok prompt. The program is now perma- 
nently saved on your disk. Whenever you want to do 
graphics from now on, put your tutorial disk in drive A:, 
start BASIC, and then start the session by typing: 


RUN "SWITCH" and press Enter 


This will put you on the graphics screen. Try this now. 
Once you are on the graphics screen, you’re ready to roll. 
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Note: With two-screen systems, it’s best to type 
SYSTEM to exit BASIC only while on the mono- 
chrome screen. To avoid problems, always run 
Switch from the Color/Graphics Adapter to get back 
to the monochrome screen before returning to DOS. 


A SIMPLE TEST 


It’s time for a simple test, just to reassure you that you’re 
in the right place. First, type: 


NEW and press Enter 


This clears the memory of any programs you’ve run pre- 
viously and should be done before typing any new pro- 
gram. Next, type Listing 2-2 exactly as shown. (If your 
screen displays only 40 columns of text, some lines will 
wrap—just keep on typing until the line is completed.) 
Press the Enter key after typing each line. Type the com- 
mand: 


LIST and press Enter 


to see what you’ve typed. Any mistakes can be corrected 
by retyping the incorrect line. If you really get stuck, type 
NEW and start over. 

Run the program by typing the command: 


RUN and press Enter 


The results should be pretty much as shown in Fig. 3 
(see the color photograph section) with perhaps some vari- 
ation due to your display. If the program doesn’t work, use 
LIST to check for errors and try again until it does. Once 
you do get the program running, you are ready to begin 
acquiring and applying specific knowledge about the PC. 

From now on, each listing that you type will be designed 
to illustrate points made in the text. Try to relate these 
sample programs to the lessons you are learning. The 
whole point of this tutorial is to help you understand how 
to take the tools BASIC provides and apply them to 
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Listing 2-2. Graphics Display Test. 


106 REM Program to test whether the display is 
118 REM on the graphics screen. 


128 CLS ‘Clear the screen 

136 KEY OFF ‘Keys off 

148 DEF SEG=3 ‘Prepare to check the current screen 

158 IF (PEEK(1@49) AND 48)<>48 GOTO 200 ‘If not 
16@ LOCATE 138,27:PRINT "YOU ARE ON THE WRONG SCREEN!" ' say so 
176 LOCATE 25,30:PRINT "PRESS ANY KEY TO EXIT"; ' and make 
180 AS=INKEYS:IF AS="" THEN 180 ELSE CLS ' a proper 
198 END ' exit 
200 SCREEN @,1 "Set COLOR TEXT MODE 

218 WIDTH 49 ‘Set to 49 characters/line 

228 LOCATE ,,9 ‘Turn cursor off 

238 FOR I=1 TO 15 ‘Display 15 lines 

248 LOCATE I+5,1+5 ' starting at 15 locations 

258 COLOR 1,9,0 ' in 15 different colors 

268 PRINT "It works!!!" 

278 NEXT I 

288 COLOR 7,9,0 "Set screen to white and black 

299 LOCATE 25,1@:PRINT "PRESS ANY KEY TO EXIT"; ‘Make a proper 
306 AS=INKEYS$:IF AS=""" THEN 380 ELSE CLS ‘exit 

319 END ‘Return to control BASIC 


designing useful programs. With this in mind, we will now 
cover some fundamental concepts of BASIC. 


CONCEPTS OF BASIC 


Discussing the entire BASIC language in detail would 
require a separate book. We assume that you either have 
some familiarity with BASIC or you are willing to pick up 
the language from the tutorial and from the BASIC man- 
ual as needed. There are, however, some general points 
that should be made before we proceed. 

BASIC provides us with an environment in which we 
can create programs, save them to disk, load them back, 
and erase them. BASIC can also execute commands as we 
enter them. When BASIC gives you the Ok prompt, it is 
waiting for you to issue instructions. It is important that 
you understand that there are two modes of operation in 
BASIC, and thus two general ways for you to respond. 

The first mode is called direct or immediate mode. In 
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this mode, we simply type commands, and BASIC imme- 
diately executes them. For example, start BASIC, type: 


PRINT "DIRECT MODE" and press Enter 


Notice that BASIC executes the line as soon as you type 
it. Direct mode is useful for simple examples and for per- 
forming small or one-time tasks. Direct mode is not so use- 
ful for major tasks, because every command has to be 
retyped each time you make a mistake or want to perform 
the task again. 

Indirect mode, (also called deferred, or program mode) 
is used to enter program lines for later execution. Any line 
that starts with a number is assumed to be typed in indi- 
rect mode. The number becomes the line number, and all 
the lines in the program are stored for later use in order of 
line numbers. The lines stored in indirect mode constitute 
a program. For example, type: 


NEW and press Enter 
to clear any previous programs, then type: 


3@ PRINT "THIRD LINE—INDIRECT MODE" and press 
Enter 
2@ PRINT ''SECOND LINE—INDIRECT MODE'' and press 
Enter 
1@ PRINT "FIRST LINE—INDIRECT MODE'' and press 
Enter 


followed by: 
LIST and press Enter 


You can see that the program lines are reordered accord- 
ing to their number. (The Fl key may be pressed instead 
of typing LIST, although you must still press Enter. Using 
the soft keys at the left of the keyboard to generate whole 
strings in this way can be a real time-saver.) At this point, 
BASIC does nothing other than store the lines. If you 
typed the program lines in lowercase, you will notice that 
BASIC has converted all letters outside the quotes to 
uppercase. The only time it matters whether you use capi- 
tals or lowercase is inside quotes where BASIC keeps let- 
ters just as you typed them. 
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To produce results in indirect mode, type: 
RUN and press Enter 


BASIC executes the program lines starting with the low- 
est numbered line. (Instead of typing RUN and pressing 
the Enter key, you can just press the F2 key. Try this now. 
The F2 key sends the command RUN and the equivalent 
of the Enter key, all with one keystroke.) 

Indirect mode is used for all large tasks, and for tasks 
that are executed repeatedly. A program can be run any 
number of times. Better yet, programs can be saved to 
disk. For example, save our current program under the file 
name Sample by typing: 


SAVE "SAMPLE" and press Enter 


(You can press the F4 key instead of typing SAVE’’, saving 
four keystrokes.) Now wipe the program from memory 
with the command NEW and press Enter, then type: 


LIST and press Enter 


or press the F1 key to check that the program is indeed 
gone. Now type: 


RUN ''SAMPLE' and press Enter 


and the program is restored to memory and executed. 
This permanent storage of programs is the great advan- 
tage of indirect mode. 

Type the command: 


LOAD "SAMPLE" and press Enter 


This command may be used to restore the program 
Sample to memory without running it. The LOAD com- 
mand wipes out any preexisting program that is in mem- 
ory. (The F3 key can be used to send the LOAD” com- 
mand, saving four keystrokes.) 

Programs need not be complete to be saved. When you 
are typing a large program, you should save the program 
frequently, so that you won’t lose your work if the power 
goes off, or you experience some similar mishap. Also, 
everything is lost if you exit BASIC with SYSTEM and 
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then restart it. Only a few seconds are required to save a 
program, but retyping a whole listing can be quite a chore. 


STATEMENTS, FUNCTIONS, AND COMMANDS 


There are three types of instructions you can give to 
BASIC. The first of these is the statement. A statement 
directs BASIC to perform an operation, usually in a pro- 
gram. For example, 199 PRINT ““‘TEST”’ is a statement. 

The second type of instruction is a function. A function 
returns a value. For example, in A=SIN(X), SIN(X) is a 
function that returns the value of the sine of X. 

Lastly, commands are often used in immediate mode to 
assist in making programs and perform housekeeping 
duties, rather than being used in a program. For example, 
LIST is a command. SAVE and RUN are also commands. 
You can see that these are commands that help you make 
programs, rather than being a part of any program.The 
important distinction here is between a statement which 
performs an action and a function which returns a value. 

The distinction between a command and a statement is 
not sharply defined, and we will use both terms to 
describe instructions to the computer. We will also use the 
term command in a case where either a statement or a 
function might be used. 


THE CURSOR 


You have no doubt noticed that there is a flashing under- 
score at the screen location where your keystrokes appear 
on the screen. This is called the cursor. Whenever we refer 
to the cursor or the cursor location, we mean the place on 
the screen marked by the flashing underscore at which 
the next character typed will appear. 

The cursor will appear as a solid block, rather than a 
flashing underscore, in graphics mode. Also, the cursor 
will become a half-height block when you are in insert 
mode in BASIC. 


40 


Getting Started with BASIC 
SOME OTHER TERMS 


There are a few other terms that we will use frequently 
which may be unfamiliar to you. One of these is pixel. 
Pixel is derived from picture element, and refers to a sin- 
gle dot on the screen, the smallest area that can be con- 
trolled by the programmer. A related term is resolution. 
Resolution is the clarity of display possible and is 
expressed in terms of how many rows and columns of dots 
can be seen. For example, the highest resolution available 
on the PC is 200 rows by 640 columns of dots. 

Intensity describes the degree of brightness of a color. 
Each of the colors available on the PC has a brighter ver- 
sion. The brighter colors are called high-intensity colors. 
Thus, on the PC there are two levels of intensity, produc- 
ing normal and high-intensity colors. 


EDITING 


Typing programs, particularly long ones, is no easy task. 
Errors inevitably occur, and changes usually have to be 
made. BASIC on the IBM PC saves us much trouble when 
typing programs by providing us with a full-screen editor. 
This means that we can use the cursor keys (the four 
arrows on the keypad at the right of the keyboard, shown 
in Fig. 2-1) to move around the screen and make changes. 
For example, type: 


PRINT "ABCD" and press Enter 


Now use the up-arrow key (number 8 on the numeric 
keypad) to go back up to the line you just typed. Use the 
right-arrow key (number 6) to move to the character A. 
Now type EFGH over ABCD, and press Enter. The modi- 
fied line will be executed. 

You can readily correct lines with these edit keys. The 
Home, End, Ins, Del, and Backspace keys also provide use- 
ful functions. One useful function is that when Crtl-Home 
(the Ctrl and Home keys at the same time) is pressed, the 
screen is cleared. We are not going to go into detail here on 
the edit keys, as the BASIC manual covers the editing 
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capabilities of BASIC. We do wish to make one important 
point, however. When you modify program lines, you 
must press the Enter key on each line that is modified, or 
the changes will not register. For example, type: 


1 PRINT "AAAA" and press Enter 
2@ PRINT "BBBB" and press Enter 
38 PRINT ''CCCC' and press Enter 


LIST the program. Now use the up-arrow key (number 2) 
to move to line 10. Use the right-arrow key to change 
AAAA to ZZZZ. Use the down-arrow key to move to line 
20, and change BBBB to YYYY. Now press the Enter key 
on line 20. Use the down-arrow key to move below line 30, 
press the Esc key, and type: 


LIST and press Enter 


Note that line 10 is unchanged, because you didn’t press 
Enter on line 10 after changing it. Line 20, on the other 
hand, is changed, because you did press Enter after 
changing it. The point is that when you change or type a 
line, you must press the Enter key on that line for the line 
to be recognized by BASIC. 


OTHER SPECIAL BASIC KEYS 


As mentioned at the beginning of this chapter, there are a 
number of keys that perform special functions in BASIC. 
The first set of these keys are the ten function keys at the 
left of the keyboard, which we have already used. These 
are known as soft keys; when pressed, these keys produce 
a whole string of characters. The soft key assignments are 
displayed at the bottom of the screen. For example, the F1 
key, when pressed, causes LIST to appear at the cursor 
location. For our purposes, other useful soft keys include 
F2, F3, and F4, which produce RUN (and Enter), LOAD”’, 
and SAVE”, respectively. The soft keys can save time, 
keystrokes, and typing errors, and can even be redefined 
to meet your needs. One note: a left arrow in the soft key 
listing at the bottom of the screen, such as that which fol- 
lows RUN, indicates that the equivalent of the Enter key is 
sent at the end of the string. 
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Fig. 2-1. Numeric keypad. 


Pressing the Alt key in conjunction with a letter will pro- 
duce a string of characters, much as with the soft keys. 
For example, press Alt-R (hold the Alt key down and press 
the R key) and see that the characters RUN appear. The 
BASIC manual has a list of all the Alt key assignments. 

The Esc key clears the line the cursor is on and moves 
the cursor to the left side of the screen. If there are many 
characters on the screen, Esc can be useful for clearing 
space to type a command. 

Finally, always remember that pressing Ctrl-Break 
(pressing the Break key while holding the Ctrl key down) 
will stop any BASIC program and return control to you. Of 
course, the program doesn’t finish, but it’s good to know 
there’s always this safety escape. For example, if you acci- 
dentally type a line like 10 GOTO 10 and pressed Enter to 
cause an endless loop, the only way to regain control 
would be to press Ctrl-Break. 

As previously noted, Ctrl-Alt-Del (depressing the Ctrl, 
Alt, and Del keys simultaneously) will reboot the PC and 
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get you out of most situations at the cost of loss of work in 
progress. Turning the power off, waiting 10 seconds, and 
turning the power back on to reboot will get you out of all 
situations, but is a rather drastic solution. 


MULTIPLE COMMAND LINES 


BASIC lines may be up to 255 characters long. Few com- 
mands are anywhere near this length, of course, but we 
can put multiple commands on a single BASIC line. This 
is done by separating the commands with colons. A single 
line number refers to all the commands on the line, so a 
GOTO statement can only move to the beginning of the 
line. For example, type: 


NEW and press Enter 
196 PRINT "A'':PRINT "'B'':PRINT ''C'' and press Enter 


and then RUN the program. Note that all three PRINT 
statements are executed. 

We will often use lines with multiple commands sepa- 
rated by colons. One reason is that these lines allow com- 
pact programs, and allow us to organize a program into 
logical portions easily, with related commands placed on 
the same line. Also, these lines are executed by the com- 
puter somewhat faster than the same commands on sepa- 
rate lines. 


Note: When the length of the line exceeds the 
width of the screen, the line wraps around to the left 
margin of the row below. This is particularly common 
when the screen is displaying 40 columns of text. 
You might think that there are now two program 
lines; however, if the screen were wide enough to dis- 
play the whole line, it would display it all on the same 


row. For example, type: 


PRINT ''XXX . . ~ XXX"! 


where “XXX... XXX’’ is 80 X’s and press Enter. Note 
that the line wraps around, but still executes as a single 
line. 
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The PC may break in the middle of a word when it 
wraps to the next line at the right margin. To avoid confu- 
sion, we have adjusted our program listings and examples 
so that wrapping always occurs between words, but when 
you type, wrapping will occur at other places than shown 
by our listings. Don’t worry about this—the program will 
execute the same no matter where the lines wrap. 


COMMENTS AND GOOD PROGRAMMING STYLE 


We cannot teach you everything about programming in 
this book. We can, however, alert you to the fundamentals 
of good programming. Throughout this tutorial, we will 
point out desirable design procedures and will design all 
our sample programs along proper programming lines. 

The single most important advice which we can give 
you is to put thorough comments in your programs. This 
means inserting text descriptions that perform no BASIC 
function into your program for explanatory purposes. 
BASIC provides two ways of commenting. 

The REM statement indicates that all following charac- 
ters on that line should be ignored by BASIC. For example, 
type: 

NEW and press Enter 


to clear memory and type: 


18@ REM GREET THE USER and press Enter 
206 PRINT "'HELLO, USER" and press Enter 


Then RUN the program. Note that line 100 has no effect. 
On the other hand, line 100 does help make the function- 
ing of the program clearer. Because REM is a statement, it 
can only appear at the beginning of the line or after a 
colon. 

A single quote also indicates that all following charac- 
ters on that line should be ignored by BASIC. For example, 
use NEW to clear memory, and type: 


19% PRINT "HELLO, USER" 'GREET THE USER and press 
Enter 


RUN this program. The single-quote apostrophe functions 
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just like the REM statement except that, because the 
single-quote is not a statement, it can appear anywhere on 
the line. Any text following a single quote is ignored by 
BASIC with one exception. A single quote that appears 
between double quotes, that is, a single quote in a string, 
is treated as any other character. To see this, type: 


PRINT "SINGLE QUOTE ' IN STRING" and press Enter 
PRINT ' "SINGLE QUOTE OUTSIDE STRING" and press 
Enter 


In the first case, the single quote character in the string 
is printed as a character. In the second case, the single 
quote character is not in a string and so is considered to 
mark the beginning of a comment. All text following the 
single quote is ignored by BASIC. 

Please note that because REM statements and single 
quotes have no effect on the running of a program, they 
need not be typed when you enter the example programs. 
This will lessen the typing requirements of the tutorial 
considerably. 

Other good programming practices include doing exten- 
sive design before programming, and designing logically 
separate sections, each of which can be programmed and 
tested individually. We will go into this in more detail as 
we take you through the design of several programs in 
later chapters. 


A KALEIDOSCOPE PROGRAM 


Let’s run a program that will show you some of what 
BASIC can do on the IBM PC. This program produces a 
changing kaleidoscope display and is shown in Listing 2-3. 
Type it precisely as shown. If you make any mistakes, use 
the editing capabilities of BASIC discussed above to make 
corrections. Remember to type NEW to clear any previous 
programs out of memory before typing the new program. 

Enter RUN to execute the program, noting the wide 
range of colors available on the IBM PC. A typical display 
is shown in Fig. 4 in the color photograph section. Note 
that good effects can be produced with only a few program 
lines thanks to the power of Advanced BASIC. 
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End the kaleidoscope program by pressing any key. 


Listing 2-3. Kaleidoscope. 


196 REM Kaleidoscope program 

11@ REM This program is inspired by material appearing in 
126 REM The Apple II Reference Manual, January 1978, p. 55 
130 KEY OFF:WIDTH 48:SCREEN @,1:COLOR 7,%,@:LOCATE ,,@:CLS 
148 LOCATE 25,11:PRINT "PRESS ANY KEY TO EXIT"; 

158 FOR L=4 TO 4@:FOR I=] TO 12:FOR J=% TO 11 

168 K=I+J:COLOR (J*4/(1+2)+L) MOD 16,0 

17@ LOCATE K,1+9:PRINT CHRS(219) 

186 LOCATE I,K+9:PRINT CHRS(219) 

198 LOCATE 24-I,33-K:PRINT CHRS(219) 

208 LOCATE 24-K,33-1:PRINT CHRS(219) 

219 LOCATE I,33-K:PRINT CHR$(219) 

226 LOCATE 24-K,1+9:PRINT CHR$(219) 

230 LOCATE K,33-1:PRINT CHRS(219) 

249 LOCATE 24-1,K+9:PRINT CHRS$(219) 

258 IF INKEYS<>"" THEN 280 

260 NEXT J:NEXT I:NEXT L 

276 GOTO 15d 

288 COLOR 7,9,9:CLS 

298 END 


ERRORS 


If you encounter errors when trying to run the program, 
don’t worry. You cannot damage the computer, and you 
can always stop the program by pressing Ctrl-Break. 

When an error occurs, BASIC stops processing the cur- 
rent command, stops the program if one is being run, and 
waits for your next command. If the error is in a program, 
BASIC tells you what line the error is on. At this point, you 
must correct the error, then retype the command or rerun 
the program depending on whether you are in direct or 
indirect mode. The action necessary to correct the error 
depends on the type of error encountered. 

There are two types of errors. Syntax errors occur when 
you type a command in a form that BASIC cannot under- 
stand. For example, type: 


PIRNT ''TEST' and press Enter 
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(The misspelling is intentional.) BASIC will return the 
message “Syntax error’ indicating that it cannot compre- 
hend the command. In indirect mode, BASIC immediately 
lists the offending program line for you to correct. Syntax 
errors are nothing more than a nuisance. Because BASIC 
catches the error for you, and lets you know what program 
line the error was on, you need merely correct the error. 
Note that a syntax error is not detected until BASIC 
attempts to execute the line. 

Run-time errors are worse. These errors occur in the 
course of running the program. There are two types of 
run-time errors. First, there are those cases when BASIC is 
given a value that will not work with the specified state- 
ment or function or when a command is typed that cannot 
be executed at that time. For example, type: 


PRINT SQR(—1) and press Enter 


Your screen will show ‘Illegal function call’’. In this 
case, we have asked BASIC to calculate a value that can- 
not be calculated, the square root of a negative number. 
Don’t worry about the specific error; the point is that 
BASIC has received a command it understands but cannot 
properly execute. 

When this type of run-time error occurs, BASIC, in gen- 
eral, will be less than informative as to the precise nature 
of the error, though BASIC specifies the line number on 
which the error occurred. You must examine your pro- 
gram to determine why BASIC could not execute the com- 
mand on the line. 

The second type of run-time error occurs when BASIC 
runs your program but the results are incorrect. Here 
there is no error as far as BASIC is concerned; the problem 
lies strictly in the program logic. Again, you must examine 
the program to determine the source of the problem. In 
this case, BASIC provides no help in pinpointing the loca- 
tion of the problem, because, as far as BASIC is concerned, 
there is no error. The solution here is to trace the program 
logic all the way from the beginning to the incorrect 
results. 

A complete list of errors is given in the BASIC manual. 
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There are over 70 errors. However, the two error messages 
that you will receive most will be ‘‘Syntax error’ and ‘“‘Ille- 
gal function call.”” When these errors occur, it is up to you 
to identify their source. 

The process of working the errors out of a program is 
called debugging. Legend has it that this term dates back 
to the first days of the computer era when a malfunction 
was traced to an insect caught in a relay. Whether this is 
true or not, the term has become firmly entrenched in 
computer lingo, so that today there is a debugging pro- 
gram called DDT and another called RAID. 


ADVANCED BASIC 


This tutorial will use Advanced BASIC exclusively. We 
would like to tell you a little bit about this language. 

There are three BASICs on the IBM PC. The first is Cas- 
sette BASIC. This version of BASIC has all the common 
BASIC commands found on other popular microcomput- 
ers, aS well as some simple graphics and sound capabili- 
ties. As the name implies, Cassette BASIC can use only 
cassette storage, rather than disk drives. 

Disk BASIC has the capabilities of Cassette BASIC plus 
the ability to store programs and data on disks and hard 
disks. 

Advanced BASIC has the power of the other two BASICs 
as well as sophisticated graphics and sound capabilities. 
In short, Advanced BASIC is the most powerful BASIC 
available for the PC, and can run any program written for 
the other BASICs on the PC. The only disadvantage of 
Advanced BASIC is that it uses more memory than either 
Cassette or Disk BASIC. Your computer must have at least 
48K of memory to use Advanced BASIC. 

How does Advanced BASIC measure up to BASICs on 
other microcomputers? 

We'll give you the bad news first. Advanced BASIC is 
relatively slow, particularly considering that it is running 
on a 16-bit processor. Advanced BASIC runs at approxi- 
mately the same speed as both Applesoft® BASIC running 
on an Apple® II and Microsoft BASIC running on a CP/M 
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machine; both of these are 8-bit computers. Advanced 
BASIC is just not that good for time-critical applications. 

Now for the good news. Advanced BASIC spends its time 
providing us with all sorts of nifty features that other 
BASICs lack. Advanced BASIC can use more memory, 
allowing larger programs than most BASICs. The graph- 
ics, sound, and full-screen editing capabilities of Advanced 
BASIC are virtually unparalleled by any other microcom- 
puter BASIC. In fact, the only microcomputer BASICs that 
rival Advanced BASIC for overall power are versions of 
this same Advanced BASIC written for other computers. 

Incidentally, Advanced BASIC is written by Microsoft 
and is mostly compatible with the 8-bit Microsoft BASIC, 
apart from its use of more memory, full-screen editing fea- 
ture, and expanded graphics and sound capabilities. Pro- 
grams written in 8-bit Microsoft BASIC for CP/M comput- 
ers will usually run with few modifications on the IBM PC. 

It would certainly be nice if Advanced BASIC ran faster. 
In fact, it would be a good bet that a faster BASIC will be 
forthcoming fairly soon. Otherwise, Advanced BASIC is an 
extremely powerful microcomputer BASIC. It is in a class 
by itself in having the graphics features around which we 
center this tutorial. 


THE TUTORIAL 


It’s time to begin our tutorial. Before we do, we would like 
to remind you that you must do more than merely read 
the tutorial. You must also have your PC running so you 
can type the examples and gain hands-on experience. Bet- 
ter yet, learn on your own by going beyond what we sug- 
gest you do. When we show sample programs, we suggest 
improvements you may wish to make. Please do so! This 
book can provide you with a thorough background and 
can serve as a reference source, but you will not progress 
as well as you might if you do not do the work—and make 
mistakes—on your own. 
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A HANDS-ON GRAPHICS 
TUTORIAL 


CHAPTER 3 


INTRODUCTION TO THE 
TUTORIAL 


Now that we have the fundamentals out of the way, we 
can begin exploring in detail the graphics capabilities of 
the IBM PC. This is not quite as simple as it sounds, 
because the PC has two main display modes and several 
submodes. 

The two primary display modes are text mode and 
graphics mode. Text mode is very similar to the display on 
the monochrome screen except that characters can be dis- 
played in color. In graphics mode, the true graphics power 
of the PC becomes apparent, with up to 200 rows by 640 
columns of dots displayed in up to 4 colors (although not 
both at the same time). 

We will concentrate primarily on the various graphics 
modes because these are more powerful and because 
Advanced BASIC takes particular advantage of them, but 
we will cover text mode as well. Given a little ingenuity, 
good results can be achieved with text mode, and text- 
mode effects have the advantage of usually being transfer- 
able to the monochrome screen for systems lacking the 
Color/Graphics Adapter. 

The following 15 chapters will be a tutorial on perform- 
ing graphics from BASIC. First we will cover graphics in 
medium-resolution graphics mode, then in high-resolution 
graphics mode, and finally in text mode. We will cover 
each graphics-related command in turn, making sure that 
you are familiar with one command before proceeding to 
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the next. We will discuss the syntax (that is, the way the 
command is typed so the computer can understand it) and 
purpose of each command in detail. We will provide 
immediate-mode examples, which you can type and 
observe as you read, then explain the operation of com- 
plete programs. We will often suggest how you might set 
about improving the programs on your own, and we 
strongly encourage you to do this, as well as to experiment 
at any point to answer whatever questions you might 
have. 

You must use the PC yourself in order to gain any profi- 
ciency at programming. You will make mistakes. Though 
the types of mistakes may change as you gain experience, 
they never will vanish. 

You will find complete applications programs scattered 
through the tutorial. Designed to show you how to apply 
what you have learned, these programs will encourage 
you to be enthusiastic about what the PC can do. These 
programs intentionally are not as polished as they might 
be. Feel free to improve them. 


BEFORE WE BEGIN 


The IBM BASIC manual is the primary reference for the 
tutorial. If you are a novice programmer, an introductory 
book on BASIC programming might also be useful. 

When the display is on the graphics screen, it is easy to 
become confused as to whether the screen is in text or 
graphics mode. In text mode, the soft keys (the function 
key assignments displayed on the bottom line) are black 
letters against a white background, and the cursor is a 
flashing underscore. In graphics mode, the soft keys are 
displayed as white characters against a black background, 
and the cursor is a solid block the size of a character 
within which characters are shown in reverse video (black 
on white). In medium-resolution graphics mode, only the 
first five soft keys are shown at the bottom. All ten soft 
keys are shown in high-resolution graphics mode. When 
the PC is first booted, the screen is always in text mode. 

A final note before we begin our tutorial: we will cover 
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commands available only in BASIC version 1.1. While 
BASIC 2.0 has additional graphics capabilities, these are 
not required to tap the graphics power of the PC. Also, 
using BASIC 1.1 will allow both BASIC 1.1 and 2.0 users 
to get maximum benefit from the programs in this book. 
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MEDIUM-RESOLUTION 
GRAPHICS—THE PSET 
STATEMENT 


Medium-resolution graphics mode is the ‘‘workhorse’’ 
graphics mode on the IBM PC. The screen is displayed as 
200 rows by 320 columns of dots (called pixels), over each 
of which the programmer has complete control. With this 
resolution and four colors available at any one time, no 
other graphics mode offers as powerful a combination of 
detail and color. Many of the graphics commands are also 
powerful in this mode. In short, medium-resolution mode 
has everything needed for excellent graphics: color, fine 
detail, powerful commands, and even the ability to put 
text easily onto the screen alongside drawings. 

Medium-resolution mode is an excellent choice for 
games of all sorts, graphs and charts that require more 
detail than a mere bar graph, and any sort of colorful art- 
istry or design work. 

In this chapter, we will show you how to get into 
medium-resolution graphics mode, how to select the col- 
ors you will use, and how to draw a single pixel (dot) and 
erase it. Also, we will cover several other useful points, 
especially how to put text onto the graphics screen and 
the various ways in which you can specify a given pixel. 


SOME USEFUL BACKGROUND 


There are a few helpful points to be made before we dis- 
cuss specific commands. First, parameters are values 
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which appear on a line after a statement or function, and 
which serve to direct the operation of the command. For 
example, X is the only parameter to the function called 
SIGN(X), and I and J are parameters to the statement 
PSET(I,J). There may be no or one or many parameters to 
a command. We will indicate valid values for all parame- 
ters associated with each command that we discuss. 

If present, parameters always appear in the same place 
in the parameter list associated with a command. To put 
this another way, BASIC knows which parameters are 
which by their order in the parameter list. The first param- 
eter to the LOCATE statement is always the row, the sec- 
ond is always the column, and so on. However, many 
parameters are optional; that is, they need only be present 
if the particular action they control is involved. In order for 
BASIC to know which value applies to which parameter, 
the comma associated with the parameter must be sup- 
plied as a place-keeper if other parameters are specified to 
the right of the omitted parameter. For example, the state- 
ment: LINE (X,Y)—(X2,Y2),,B needs a double comma to 
perform place-keeping for the optional color parameter 
which is omitted. If the optional parameter, B, was also 
omitted, however, the command would read: LINE 
(X,Y)—(X2,Y2). Because there is no parameter used to the 
right of the color parameter, there is no need to hold its 
place. In fact, a comma without a parameter to the right 
will cause a “Missing operand” error. Commas are only 
used when necessary to ensure that BASIC can tell which 
parameters are specified. 

Second, there are always four colors available in 
medium-resolution color graphics mode—no more and no 
less. These colors are numbered 9 through 3. Color @ is 
always the background color (the background is the 
default color for the screen when nothing is displayed). 
This means that setting the color of a pixel to color num- 
ber @ will cause that pixel to become indistinguishable 
from the background; in effect, the pixel will have been 
erased. The background color is the “‘setting’’ upon which 
graphics are drawn, but it is otherwise no different from 
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any other color and may always be ‘‘drawn”’ by referenc- 
ing color number @. 

Finally, we will cover many commands in the course of 
the tutorial. If you want more detail than we provide on 
any command, refer to the discussion of that command in 
the BASIC manual. Likewise, you should refer to the 
BASIC manual if you are unfamiliar with any of 
nongraphics commands that we use. Don’t worry too 
much about nongraphics commands—it is more impor- 
tant to concentrate on the area of current interest. 


SETTING UP MEDIUM-RESOLUTION GRAPHICS 


The first step in getting BASIC into medium-resolution 
graphics mode is, of course, to get to the proper screen. If 
you have a two-screen system, run the program Switch, as 
described in Chapter 2, so that the display will be on your 
graphics screen (television or composite or RGB monitor), 
with the BASIC Ok prompt on the screen. 

The SCREEN statement selects the mode of operation 
for the screen. Type the command: 


SCREEN 1, and press Enter 


The screen will clear; this is normal and occurs whenever 
the screen mode is switched. You are now in medium-reso- 
lution graphics mode, with color on. 

The general form of the SCREEN command is SCREEN 
mode,burst,activepage,display page 

Only the parameters mode and burst concern us now; 
activepage and displaypage apply only to text mode 
graphics. A value of 1 for mode selects medium-resolution 
graphics mode, while 2 selects high-resolution graphics 
mode, and @ selects text mode. Burst turns color on and 
off. In text mode, a zero value for burst turns off color and 
a nonzero value turns it on, while in medium-resolution 
mode, a zero value for burst turns on color and a nonzero 
value turns it off. If you encounter problems with this con- 
tradictory state of affairs, refer to your BASIC manual 
when setting the screen. Either mode or burst or both may 
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be omitted if you do not wish to change their values. (As 
always, more detail is available in the BASIC manual if 
needed.) 

Burst does have one unexpected property: it does not 
turn off color on RGB monitors. (In fact, if burst is turned 
off in medium-resolution graphics mode, the PC can pro- 
duce an unofficial set of colors.) Sometimes, it is useful to 
turn off burst because composite signals tend to produce 
random color when a color signal is used. For example, 
the text on a television in medium-resolution mode has 
stray colored pixels, even though the text is all white. 
Burst can be used to remove these random colored dots if 
a truly black-and-white display is desired. None of this 
applies to RGB monitors, however, for burst has no effect 
on RGB displays. Just keep in mind that if burst is turned 
off, the display can be black-and-white on a television 
screen and colored on an RGB monitor. 

For now all you need to remember about the SCREEN 
statement is that if mode is 1 and burst is O, the screen 
will be in medium-resolution color graphics mode. We are 
now ready to examine just which colors we have available. 


Medium-Resolution Color Selection 


Every color available on the PC can be displayed in 
medium-resolution graphics mode, but, unfortunately, 
only in certain combinations. The background color (that 
is, the color to which the screen and border default and 
which graphics are typically set against) can be any of the 
16 colors available on the PC, as shown in Table 4-1. The 
other three colors available at any one time consist of one 
of two sets. The sets are called palettes because, like 
painters’ palettes, each is a group of colors from which the 
PC artist may choose to work. 

Palette number @ contains green, red, and brown, which 
are colors 1, 2, and 3, respectively (Table 4-2). (Many mon- 
itors will display yellow rather than brown.) These colors 
look excellent on an RGB monitor (see Fig. 5A in the color 
photograph section), but, unfortunately, often tend to look 
rather muddy on a television. 

Palette number 1 contains cyan, magenta, and white, 
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Table 4-1. Background Colors 


8 


Black Gray 


- 3d 


Blue 9 Light Blue 
Green Light Green 
Cyan Light Cyan 
Red Light Red 
Magenta Light Magenta 
Brown Yellow 


White High-Intensity White 


* Any of these colors may be selected for the background in medium-resolution graphics mode. 


which are, respectively, colors 1, 2, and 3 (Table 4-2). 
Cyan is a light blue, and magenta is a light red. These col- 
ors aren’t as vivid on an RGB monitor as those in the other 
palette (See Fig. 5B in the color photograph section), and 
can look somewhat washed out if screen brightness is 
high. However, the colors in palette 1 look just about as 
good on a television as on an RGB monitor, and because 
white appears much sharper on a television than any 
other color, this palette is the palette of choice for televi- 
sion work. (The same is true of any composite monitor.) 


Table 4-2. Palette Colors 


COLOR 
NUMBER PALETTE 0* PALETTE 1* 


Cyan 
Magenta 
White 


* Only one palette may be selected at any time. 


The choice of colors in medium-resolution mode can be 
dificult. The authors prefer to use palette 1 when both 
televisions and RGB monitors might be used, because this 
will ensure that all displays are at least legible. For this 
reason, most of the medium-resolution examples in this 
book use palette 1. Unfortunately, palette @ is often the 
most visually striking. One solution, of course, is to pro- 
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vide the end-user the option of selecting the palette he pre- 
fers. 

The background and palette colors are selected via the 
COLOR statement. Make sure you are still in medium-res- 
olution color mode. Type: 


COLOR @,@ and press Enter 


This will select palette @ on a black background, so your 
text will be colored brown (which may appear yellow). The 
general form of the COLOR statement in medium-resolu- 
tion mode is: COLOR background,palette where back- 
ground is the color that drawings are set against (color 9) 
and palette is either @ or 1 for the palette number. For the 
palette value any even number will work as well as @ and 
any odd number will work as well as 1, but we will use 
and 1 for consistency. For example, COLOR 1,1 will 
select palette 1 on a blue background. This may be hard to 
read on your display. Type: 


COLOR 8,1 and press Enter 


to return to a black background. You will find that a black 
(color @) or gray (color 8) background is best for legibility 
on non-RGB monitors. Note that in medium-resolution 
graphics mode, when the background color is switched, all 
dots of color 9 change color immediately. Similarly, when 
the palette is changed, all dots of colors 1-3 change color 
immediately. 

Type and run the program shown in Listing 4-1 to see 
the two palettes available in medium-resolution graphics 
mode, with the COLOR statement used to select each of 
the palettes in turn. Do not worry about how the circles 
are drawn; we will cover this in later chapters. The key 
here is the use of the COLOR statement to control the pal- 
ette used. 

There are two general points about our programs we 
would like to make. First, the lines in FOR. . . NEXT 
loops are indented 2 columns. This is a standard practice 
to make programs more readily understood, as program 
lines that are related can be readily discerned. 


60 


Medium-Resolution Graphics—The PSET Statement 


Second, the program in Listing 4-1 terminates with an 
END statement. A STOP statement would have served as 
well, and, in fact, because a program terminates when 
there are no more lines to be executed, neither END nor 
STOP statements are required. However, the last line in a 
program is not necessarily the only ending point, or even 
the ending point at all, so it is a good practice to use END 
to make the termination point of a program evident. 


Listing 4-1. Palette O and 1 Demonstration. 


196 REM Program to demonstrate palettes @ and 1 
116 REM in medium-resolution graphics mode. 
12@ SCREEN 1,@8:CLS:KEY OFF "Set screen 
139 COLOR @ "Black background 

148 REM Do palette @ first 

158 COLOR ,@ ‘Select palette @ 

16% REM Draw circles in colors 1, 2, and 3 

170 CIRCLE(88,109),30,1:PAINT STEP(@,@),1 

188 CIRCLE(169,180),30,2:PAINT STEP(@,@),2 

198 CIRCLE(249,190),38,3:PAINT STEP(G,@),3 

208 REM Label screen 

216 LOCATE 22,17:PRINT "PALETTE 9" 

226 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE": 
238 AS=INKEYS$:IF AS="" THEN 230 

248 REM Palette 1 

258 COLOR ,1l "Select palette 1 

268 LOCATE 22,17:PRINT "PALETTE 1" 

270 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
289 AS=INKEY$:IF AS="" THEN 289 

298 COLOR G,1:CLS 

308 END 


The program in Listing 4-2 demonstrates each of the 16 
colors available for the background color in medium-reso- 
lution mode. The variable I is varied from @ to 15 and used 
with the COLOR statement to select each of the corres- 
ponding background colors in turn. 

A gray (color 8) background has an interesting effect on 
the foreground colors. The colors 8 through 15 are 
brighter versions of colors 9 through 7, and are called 
high-intensity colors because of this extra brightness. 
Thus gray (color 8) is the high-intensity version of black 
(color 9). When the background is gray, the foreground 
colors become their high-intensity counterparts (in effect, 
eight is added to the color number (refer to Table 4-1). 
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Listing 4-2. 16 Background Colors. 


19@ REM Program to show each of the i6 background colors 
118 REM available in medium-resolution graphics mode. 
128 REM Set screen 

13@ SCREEN 1,@:KEY OFF:CLS 

148 REM Select each of colors 9 through 15 in turn 

158 FOR I=@ TO 15 

168 REM Select new background color 

176 COLOR I 

188 REM Wait a while 

198 FOR J=1 TO 8008:NEXT J 

208 NEXT I 

218 REM Reset screen 

228 COLOR J 

238 END 


Hence palette 9, which consists of normal-intensity green, 
red, and brown (colors 2, 4, and 6) against a black back- 
ground, becomes light green, light red, and yellow (colors 
1, 12, and 14) against a gray background. Likewise, each 
of the colors in palette 1 becomes a high-intensity version 
against a gray background. 

For example, type: 


SCREEN 1,8: COLOR 9,1: CLS and press Enter 


to select medium-resolution mode with palette 1 against a 
black background. The text will appear in white. Now 


type: 
COLOR 8,1 and press Enter 


to set the background to gray. Notice how bright the letter- 
ing becomes. It is now in high-intensity white (color 15), 
because the background is high-intensity black. All the 
other colors in palette 1 are similarly brightened. 

Run the program shown in Listing 4-3 to see the differ- 
ence between the normal and high-intensity palettes. The 
key here is that the COLOR statement is used to select 
gray, a high-intensity color, for the background color. Con- 
sequently, the foreground colors become high-intensity as 
well. 

These high-intensity colors are considerably more vivid 
than the normal colors, and help to extend the somewhat 
limited range of colors available in the two standard pal- 
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Listing 4-3. Medium-Resolution Graphics Mode 
Intensity Effects. 


106 REM Program to demonstrate intensity effects 
119 REM in medium-resolution graphics mode. 

12@ SCREEN 1,0:CLS:KEY OFF "Set screen 

130 REM Do palette @ first 

148 COLOR 9,8 'Select palette @-normal intensity 
15@ REM Draw circles in colors 1, 2, and 3 

168 CIRCLE(89,180),30,1:PAINT STEP(Z,Z),1 

176 CIRCLE(160,100),3@,2:PAINT STEP(@,@),2 

188 CIRCLE(240,120),30,3:PAINT STEP(G,9),3 

198 REM Label screen 

206 LOCATE 23,17:PRINT "PALETTE 9" 

218 GOSUB 369 ‘Delay for viewing 
226 REM Now show high-intensity 

23@ COLOR 8:LOCATE 22,14:PRINT "HIGH INTENSITY" 
248 GOSUB 36% ‘Delay for viewing 
258 REM Palette 1 

266 COLOR G,1 "Select palette 1l-normal intensity 
278 LOCATE 23,17:PRINT "PALETTE 1" 

280 REM Clear old label 

298 LOCATE 22,14:PRINT SPC(14) 

388 GOSUB 36% "Delay for viewing 
318 REM Now show high-intensity 

328 COLOR 8:LOCATE 22,14:PRINT "HIGH INTENSITY" 
338 GOSUB 368 "Delay for viewing 
348 CLS:COLOR G,1 

358 END 

360 LOCATE 25,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
376 AS=INKEYS:IF AS="" THEN 370 

388 RETURN 


ettes. With the gray background, all colors except blue 
and light blue are available in medium-resolution graph- 
ics. Just keep in mind that everything we are going to 
demonstrate with the normal colors can also be done with 
the high-intensity colors simply by making the back- 
ground one of the high-intensity colors. 

One note on the gray background: if medium-resolution 
graphics mode is selected with SCREEN 1, and if no 
COLOR statement is executed to explicitly set the back- 
ground color, then the background will be gray (color 8), 
not black (color @). 


MORE USEFUL BACKGROUND 


There are two more background points to be discussed 
before we proceed to graphics. First, after each graphics 
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command is executed, there is a point known as the last 
point referenced. This point can serve as the automatic 
starting point for the next graphics command executed. 
Sometimes, such as when drawing a circle, it is not clear 
where this point is. In describing each command, we will 
tell you what point is the last point referenced. Later we 
will discuss how to make use of this point. 

Second, the coordinate numbering system for graphics 
may be somewhat confusing to the beginning program- 
mer. Each screen location (pixel) is described by the coor- 
dinates x and y. The x coordinate indicates pixels mea- 
sured horizontally, and the y coordinate indicates pixels 
measured vertically. For all graphics modes, the upper-left 
corner of the screen is location (9,0), or row 2, column Q, 
and the lower-left corner is (9,199). In medium-resolution 
mode the upper-right corner is (319,0) and the lower-right 
corner is (319,199). 

The vertical, or y, coordinates increase from top to bot- 
tom, contrary to graphing convention, so your own graph- 
ing programs will have to account for this. Also, it may 
seem strange that numbering begins at zero and not at 
one, particularly because you will discover later that in 
text mode the cursor positions start at one and not zero. 
This is a quirk of the PC you'll learn to work around. 


PSET AND PRESET 


We are now ready to do some actual graphics work. We 
will start with the basics—the ability to plot a single point. 
This is accomplished with the PSET command. 

Make sure you are on the graphics screen, in medium- 
resolution graphics mode with palette 1 and a black back- 
ground selected. If you are not, the situation can be cor- 
rected by booting the PC, typing BASICA, running the pro- 
gram Switch if and only if you have both display adapters, 
and typing: 


SCREEN 1,9 and press Enter 
followed by: 
COLOR 9,1 
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Your display is now set for medium-resolution color 
graphics, with palette 1 selected on a black background. 
(We will not repeat this initial sequence again; you should 
be able to handle it yourself from now on. If you have prob- 
lems, refer to Chapters 1 and 2 for more detail.) 

First type: 


CLS and press Enter 


to clear the screen. CLS is a simple but useful statement, 
having no purpose other than to erase text from the 
screen. 

You will notice that the bottom, or 25th line of the 
screen, is not cleared. This line displays the assignments 
of the function keys unless explicitly turned off. Type: 


KEY OFF and press Enter 


to blank this line. The function keys still have their special 
assignments, but there is no display. Press F1 to see that 
LIST is displayed if you want to reassure yourself. Now 
press Esc to clear the line and type CLS again to clear the 
screen. 

As long as we are in immediate mode—that is, as long as 
we are simply typing commands rather than typing num- 
bered lines into a program for later running—text will 
always be present on the screen. This is no problem if we 
frequently clear the screen with Ctrl-Home or CLS so that 
we are always working at the top, and keep our graphics 
away from this area by only graphing points with a y coor- 
dinate greater than 19@ (that is, in the lower half of the 
screen). Alternatively, the up-arrow edit key or the Home 
key can be pressed to reuse the top area of the screen over 
and over without erasing the display. In any case, if there 
is anything else on the line on which you are typing a com- 
mand, either press the Esc key to clear the line first, or 
press Crtl-End to clear from the cursor location to the end 
of the line. Otherwise, garbage on the line remaining from 
previous operations can confuse BASIC. 

Now type: 


PSET (198,18) ,3 and press Enter 
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and you will see a pixel turn white toward the left-center of 
the screen. The pixel may appear tinted on televisions, but 
it is white. That is, in truth, about all there is to PSET. 

The PSET command is: PSET (x,y),color in which x 
and y are the column and row coordinates respectively of 
the pixel and should be within the screen area as 
described above. In medium-resolution mode, color is a 
value between @ and 3; @ selects the background color, 
while 1, 2, and 3 select colors from the palette that is cur- 
rently selected via the COLOR statement. 

The coordinates are required parameters (otherwise, 
how would PSET know where to put the pixel?), but color 
is optional. If color is omitted, the foreground color (color 
3, which is white in palette 1 and brown in palette @) is 
assumed. The last point referenced by PSET is, of course, 
the point referenced by parameters x and y. 

Let’s experiment a little more with PSET. Remember to 
clear the screen or reuse the top portion of the screen so 
that you don’t find yourself typing through the graphics. 
Type: 

PSET (188,190),2: PSET (181,199) ,2 and press Enter 


and voila—a red (magenta) dot appears. The 2 that 
appears after the coordinates selects color number 2, and 
in palette 1 that is magenta. There are actually two red 
dots plotted. We PSET two dots because on some displays, 
single colored dots appear erratically or not at all. Type: 


PSET (200,100),1: PSET (281,198),1 and press Enter 
and a cyan dot is produced. Now type: 
PSET (226,100) ,@: PSET (221,100) ,@ and press Enter 


Nothing appears. Why? Remember that color 9 is the 
background color, so the dots you just plotted in color @ 
were indistinguishable from the dots surrounding them. 
Type: 

PSET (208,100) ,@: PSET (281,189) ,@ and press Enter 


and the cyan dots vanish, having been set to the back- 
ground color. 
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There are two quirks of the PSET statement. First, if 
PSET is used to plot a point off the screen, no error mes- 
sage is given and no point is drawn. Even though the point 
is not on the screen, it is still the last point referenced. 
(This is true of many other graphics commands as well.) 
The significance of this will become clearer when we dis- 
cuss relative addressing. For the moment, remember that 
BASIC doesn’t always consider it an error or let you know 
when you've plotted a point off the screen. 

Second, in medium-resolution mode, points PSET with 
x values between 320 and 639 appear on the screen, 
although they should not, and wrap around to the left 
margin to appear two rows below their proper row. For 
example, type: 


PSET (489,196) and press Enter 


The dot appears near the left margin, even though it 
should be off the screen. 

PSET has a sister statement, PRESET. PRESET is 
remarkably similar to PSET; in fact, the two statements 
are identical unless the color parameter is omitted. In this 
case, where PSET will default to the foregound color (color 
3 in medium-resolution mode), PRESET will default to the 
background color, color @. Of course, because PSET (x,y),@ 
in no way differs from PRESET (x,y), PRESET is not a 
critically useful statement, but it can serve to make a dis- 
tinction between drawing pixels (PSET) and erasing them 
(PRESET). 

For example, type: 


PSET (189,198) and press Enter 
followed by: 
PRESET (188,198) and press Enter 


to draw and then erase a pixel. You could just as well have 
erased the pixel with PSET (199,19®@),@ as with PRESET 
(199,109@). 

Almost any graphics function may be performed with 
PSET and PRESET. Lines, circles, and other shapes are 
nothing more than a series of pixels strung together to cre- 
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ate the effect of the desired form. Certainly it is faster and 
easier to draw a square with a single command than to 
position and draw each of the pixels individually. PSET 
and PRESET are nonetheless straightforward and flexible, 
and can always be made to meet your needs if time is not a 
critical factor. 

For example, PSET can be used in conjunction with a 


FOR. . . NEXT loop to form lines. Clear the screen with 
CLS and type: 
FOR X=198 TO 200: PSET (X,10@),1: NEXT and press 
Enter 
and a blue line will appear. (The FOR . . . NEXT loop 


causes the PSET command to be executed repeatedly with 
X equaling 100, then 101, and so on up to 200.) This is all 
that is required for horizontal and vertical lines; diagonal 
lines can be draw by commands along the lines of FOR 
X=10% TO 150: Y=X-1@: PSET (X,Y),3: NEXT where 
the relationship between X and Y can be varied to produce 
lines of different angles. Other forms such as circles can be 
produced using PSET in conjunction with appropriate cal- 
culation (trigonometric functions such as sine and cosine 
are available), although statements to be covered later can 
often produce the same results much faster and with con- 
siderably less effort. 

To get a better feel for what PSET and PRESET can do 
on your display, select palette number 9 with the com- 
mand: 


COLOR 9,8 and press Enter 


to clear the screen, and experiment with PSET and PRE- 
SET with various colors. Experiment further with palette 
1. Note which colors show up well and which don’t. This 
information will be useful whenever you are trying to 
decide which palette you would prefer to use. 


PSET And PRESET—An Example 


Now we can put our knowledge of PSET and PRESET to 
use in a complete program. The program, shown in List- 
ing 4-4, uses PSET and PRESET to move a short line 
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across the screen. Remember that REM statements and 
single-quote comments are present for explanatory pur- 
poses only, and it is not necessary that you type them in 
when typing the program. 


Listing 4-4. PSET and PRESET. 


106 REM Program to demonstrate use of PSET & PRESET 
119 REM in medium-resolution graphics mode. 


128 SCREEN 1,9 ‘Set medium-res color mode 
138 COLOR 9,1 ‘Select palette 1 for color 
148 CLS:KEY OFF ‘Clear the screen 

158 FOR X=19 TO 300 ‘Draw moving line 291 times 
168 PSET(X,100),2 "Put lead dot on screen 
176 PRESET (X-5,190) ‘Remove tail end of line 
188 NEXT X 


198 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
208 AS=INKEYS:IF AS="" THEN 200 ELSE CLS 
218 END 


TEXT IN THE GRAPHICS SCREEN 


Text in the graphics screen is essential for such matters as 
labeling charts, titling presentations, displaying game 
scores and instructions, and explanations of all kinds. On 
many microcomputers, inserting text in the graphics 
screen is a tedious process, requiring the user to draw the 
characters as he would draw any object. Thus, in order to 
insert the letter ‘‘H’’ on the screen, the programmer would 
have to draw three lines, two vertical and one horizontal, 
in the correct place on the screen. 

Happily, we have none of these problems because the 
PC draws the characters for us. All we have to do is set the 
cursor location with the LOCATE statement, and then 
write the text with the normal PRINT command. In fact, 
we are only able to type BASIC commands in graphics 
mode because of the PC’s ability to put text on the graph- 
ics screen. 

Clear the screen (you should still be in medium-resolu- 
tion mode). Type: 


LOCATE 28,28: PRINT ''CURSOR IS HERE"; and press 
Enter 
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and observe where the message appears. Now use the edit 
keys to change the first command to: 


LOCATE 22,28: PRINT "NOW ON LINE 22"'; and press 
Enter 


and the operation of LOCATE and PRINT should become 
clear. LOCATE positions the cursor (the point at which the 
text will appear), and PRINT puts the text string on the 
screen starting at the cursor location. The values after 
PRINT can be any string or numeric variables or con- 
stants, although you should be aware of the length of the 
text so that you do not overrun graphics or PRINT past the 
edge of the screen. Note that the semicolon at the end of 
the PRINT statement keeps the cursor from going down a 
line after the text is displayed. PRINTing without a semi- 
colon on lines 24 and 25 will cause the entire screen to 
move up one line, a process known as scrolling. While 
scrolling can be useful for specialized forms of animation, 
it is best to avoid it by always using a semicolon at the end 
of the PRINT statement in the graphics modes. We will 
discuss PRINT again when we cover text mode, because 
PRINT is primarily a text-related statement. 

We will also discuss the full form of LOCATE in the sec- 
tion on text mode graphics. For now, be aware that the 
first parameter to LOCATE is the row number (in the 
range 1 to 25), and the second parameter is the column 
number (in the range 1 to 40 in medium-resolution graph- 
ics mode). Note that you cannot LOCATE in row 25 unless 
you have executed a KEY OFF statement. By using 
LOCATE to position the cursor and PRINT to display the 
text at the cursor location, text can readily be put on the 
graphics screen where you want it. 

If you had trouble following the discussion of the 
LOCATE and PSET statements, you might want to review 
Chapter 3 of the IBM BASIC manual, particularly those 
sections dealing with variables and constants. 

There are several drawbacks to this method of putting 
text on the graphics screen. First, the text size is fixed. 
Characters are always 8 pixels by 8 pixels in dimension. 
(In high-resolution mode, this means that characters are 
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half the width of those in medium-resolution mode.) Sec- 
ond, the text can appear only in normal rows and col- 
umns. Because characters are 8 pixels by 8 pixels in 
dimension, this means that text can only be printed at 
positions that are multiples of 8 pixels. Thus, the screen is 
200 pixels high in medium-resolution mode, but text can 
appear starting only at pixels 9, 8, 16, and so on. This 
maintains compatibility with text mode but makes it diffi- 
cult to get labels in the right places in graphics mode. 
Third, unless we get a little tricky (to be discussed later), 
the characters can only appear in the foreground color, 
yellow in palette O and white in palette 1. Fourth, putting 
characters in the graphics screen via this method is slow; 
filling any large portion of the screen with text in graphics 
mode takes several seconds. 

Nevertheless, using PRINT to put text on the graphics 
screen is so much more convenient than any other 
approach that it is used in most cases. 


An Example of Text in the Graphics Screen 


Listing 4-5 shows our PSET example program modified to 
include text labels. Notice that only one LOCATE and 
PRINT pair is required to place each label on the screen. 


RELATIVE ADDRESSING: USING THE LAST POINT 
REFERENCED 


Earlier, we mentioned the last point referenced and prom- 
ised to explain its use later. That time has come. All the 
screen addresses we have discussed so far have been coor- 
dinates such as (0,0) and (160,19@), taken as absolute 
coordinates with the upper left-hand corner of the screen 
being (9,0). Any particular coordinate pair will always rep- 
resent precisely the same pixel every time it comes up. 
This is known as absolute addressing. Any program that 
uses absolute addressing will draw the same form in the 
same place on the screen every time. 

There is another form of graphics addressing known as 
relative addressing. In relative addressing, the coordi- 
nates specified are an offset, or movement, from the last 
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Listing 4-5. Medium-Resolution Graphics Mode Text. 


180 REM Program to demonstrate use of text in 
118 REM medium-resolution graphics mode. 


128 SCREEN 1,0 ‘Set medium-res color mode 
138 COLOR 9,1 ‘Select palette 1 for color 
148 CLS:KEY OFF "Clear the screen 

158 LOCATE 17,14 "Set location and 

168 PRINT "MOVING LINE" ' print title 

176 LOCATE 15,1 "Set location and 

188 PRINT "START" ' print one label 

198 LOCATE 15,33 "Set location and 

286 PRINT "FINISH" ' print second label 

218 FOR X=1@ TO 380 ‘Draw moving line 291 times 
226 PSET(X,100),2 ‘Put lead dot on screen 
238 PRESET (X-5,100) ‘Remove tail end of line 
249 NEXT X 


25@ LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
268 AS=INKEYS$:IF AS="" THEN 26@ ELSE CLS 
278 END 


point referenced (this is why the last point referenced by 
each command is important). To specify relative address- 
ing, describe the screen address with STEP(x,y) where x 
is the number of pixels to be added horizontally to the last 
point referenced, and y is the number of pixels to be added 
vertically to the last point; the resulting coordinate is the 
new screen location. Negative values may also be used to 
indicate movement up or to the left. 

This may sound complicated, but it’s really not. Just 
remember that with relative addressing the reference, or 
(0,0), point is the last point referenced, rather than the 
upper-left corner. 

For example, in medium-resolution graphics mode, 
clear the screen and type: 


PSET (198,189) and press Enter 


which makes the last point referenced (199,100). Now 
type: 
PSET STEP(18,18) and press Enter 


which will put a dot 10 pixels below and to the right of the 
first dot. Next type: 
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PSET STEP(—36,19) and press Enter 


which will put a dot 10 pixels below and 30 to the left of 
the second dot. Note that PSET STEP(2@,—2@) would 
return the last point referenced to the initial dot. 

Relative addressing can be used with most of the graph- 
ics commands we will discuss later, by simply substitut- 
ing STEP(x,y) for the normal absolute coordinate pair. 
Experiment now with PSET and PRESET using relative 
addressing until you’ve gotten the hang of viewing the 
screen from a relative perspective. See what happens if 
you plot off the screen. Such error conditions can be 
important in anticipating potential problem areas in your 
programs. 

Relative mode can be useful. For example, suppose you 
want to put a symbol representing a factory at any of sev- 
eral locations on any chart produced. Using absolute 
addressing, each coordinate for PSET would have to be 
calculated explicitly. 

Now, suppose instead that you wrote a section of pro- 
gram code to draw the symbol using relative addressing. 
To draw the symbol at any screen location, you would exe- 
cute one PSET to set the starting point for the symbol, and 
then execute the logo-drawing code. No calculation 
beyond the first point would be required. The relative 
addressing approach is certainly easier to use in this case, 
and better any time you need to draw the same form in 
several locations. 

There are several points to note concerning the last 
point referenced. Even if the last graphics command refer- 
enced a point off the screen, the last point referenced is 
that point. For example: PSET (169,90): PSET STEP(Q, 
309) PSET STEP(@,—28@) will produce a third dot 20 
pixels below the first, even though the second plot was 
off the screen. Also note that there is no error message 
returned when plotting the offscreen point. Do not count 
on BASIC to let you know when you’ve made a mistake! 

Finally, if no last point referenced has yet been set, the 
last point referenced is the center of the screen, (160,109). 
Each time the screen is cleared, the last point referenced is 
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reset to this point. This makes sense—if the screen is 
cleared, the last point referenced no longer has any mean- 
ing, as the drawing it was related to no longer exists. 

In case you were wondering, there is no BASIC com- 
mand that lets you find out where on the screen the last 
point referenced is. While this can certainly be a nuisance, 
it’s another one of those things that you'll just have to live 
with. 


An Example of Screen Addressing Modes 


Listing 4-6 shows a program which performs both abso- 
lute and relative addressing. Make sure you understand 
the use of STEP in this program to specify relative screen 
addresses. 


Listing 4-6. Absolute and Relative Screen Addressing. 


188 REM Program to demonstrate absolute and relative 
118 REM screen addressing. 


126 SCREEN 1,9 ‘Set medium-res color mode 
138 COLOR 9,1 "Select palette 1 for color 
148 CLS: KEY OFF ‘Clear the screen 

158 FOR I=1 TO 209 ‘208 times 

168 PSET(5@+1,58),1 ‘draw moving dots 


178 PSET STEP(29,38),2 ' in three 

188 PSET STEP(20,30),3 ' colors 

198 NEXT I 

206 LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
219 AS=INKEYS:IF AS="" THEN 210 ELSE CLS 

228 END 


A word of caution about relative addressing: if the last 
point referenced is accidentally placed off the screen, the 
overall picture will sometimes, although not always, be 
garbled. For this reason, we suggest that you make every 
effort to avoid addressing points off the screen. 
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THE POINT FUNCTION 


With the PSET statement, we have full control over what 
is put on the screen, but we have no way to tell what is 
already there. The latter ability would give us full control 
over the graphics screen; in time, given PSET and a func- 
tion for checking screen contents, we would be able to per- 
form virtually any graphics application. 

Why is the ability to detect screen conditions so impor- 
tant? Imagine that we were designing a game in which, for 
example, a picture of a cyan whale is moving around the 
screen under player control, avoiding the white icebergs 
and attempting to collide with the magenta fish. It would 
be useful to test whether certain pixels were already 
drawn—that is, differing from the background color, indi- 
cating the presence of an object at that location. Further- 
more, the color of the pixel can indicate what object has 
been hit. 

Or suppose that we wished to draw a chart with criss- 
crossing lines of red and blue. The red lines are more 
important, so we would want to draw blue lines only at 
pixels that aren’t already red. Again, some way to test a 
pixel in advance is required. 

The POINT function is designed for just such applica- 
tions. For instance, clear the screen and type: 


PSET (196,108) ,3 and press Enter 
then type: 
PRINT POINT(196,10) and press Enter 
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The result, 3, indicates that the pixel at (100,10) is white, 
as it should be, because we just made it white ourselves. 

The syntax of the POINT function is z=POINT(x,y) with 
x and y as the coordinates of the pixel to be tested. We 
have previously dealt only with statements, but POINT is 
a function and always returns a value. This value can be 
used in an IF statement or in a PRINT statement (as in the 
previous example), or it can be assigned to a variable. This 
value is, as regards usage, no different than that of a nor- 
mal variable such as I or J. 

The value returned by POINT can then be used to test 
the color of a pixel. For example, if POINT returns a color 
of Q, then the pixel is the background color. 

In medium-resolution mode, values returned by POINT 
may be @, 1, 2, and 3, corresponding to the three colors 
available in the currently selected palette. If the selected 
palette is palette number @ and POINT returns the value 1, 
the pixel is colored green; were palette 1 to be selected, the 
same value would represent cyan. 

The POINT function does differ markedly from other 
graphics commands in one respect. Clear the screen and 


type: 
PSET (168,10) and press Enter 

to set the last point referenced. Then type: 
PRINT POINT STEP(1,1) and press Enter 


and get the result 9, indicating that this pixel is black. 
However, PRINT POINT STEP(@,@) will return 3, where 
one might well expect @ again, because the last POINT 
referred to a pixel that was black. 

Unlike the other graphics-related commands we will dis- 
cuss, POINT does not affect the last point referenced. Rela- 
tive addressing can be used with POINT, but the last point 
referenced always remains unchanged by the operation of 
the POINT function. 

POINT is useful in any case where the screen’s contents 
are of interest. Collision detection is a particularly good 
application. In ‘‘shoot-’em-up’”’ games, an enormous num- 
ber of time-consuming collision checks usually done by 
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comparing coordinates can be avoided by simply checking 
for collisions in the screen via POINT. 


AN EXAMPLE OF THE POINT FUNCTION 


POINT is of no particular use in and of itself. Pixels must 
have previously been drawn with some purpose in order 
for the values returned by POINT to have any meaning. 
Our example of the POINT function involves the PSET and 
PRESET statements as well, and contains some of the ele- 
ments we will use in later chapters when we design 
games. 

A program to demonstrate the use of the POINT state- 
ment is shown in Listing 5-1. Type and run the program, 
then examine the listing to connect the action on the 
screen to the BASIC program. The key to this program is 
that on lines 330 and 370, the POINT function is used to 
test whether the new location of the dot is color @. If it is 
not color @, then it must be one of the walls of the box and 
so it must be time for the moving ball in the program to 
bounce. 

Lines 110-130 set up the medium resolution screen. 
Lines 140-230 draw the box and the two lines in the mid- 
dle of it. Lines 240-280 set the initial location and motion 
of the ball. The FOR . . . NEXT loop starting at line 290 
and ending with line 420 moves the ball. 

Within the ball movement loop, lines 300 and 310 set 
aside the old ball location, so that on line 400 the com- 
puter knows where to erase the ball. Lines 320-350 move 
the ball in the x direction, check for collision with a wall, 
and, if a wall is encountered, reverse direction and move 
the ball in the new direction. Likewise, lines 360-390 han- 
dle the movement of the ball in the y direction. Line 400 
erases the ball at the old location, and line 410 draws the 
ball at the new location. 

We are not going to explain this in more detail here, 
because the main object of this program is to demonstrate 
the use of the POINT function, and because we will discuss 
a similar program at great length in Chapter 11. Do, how- 
ever, look over the program, because this approach to 
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moving an object is useful and frequently encountered. 
Also, make certain that you understand the role that the 
POINT function plays in determining whether the ball has 
struck something on the screen. 


108 
116 
126 
136 


456 
466 
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Listing 5-1. POINT Function. 
REM Program to demonstrate the POINT function. 


SCREEN 1,9 "Set med-res color mode 
COLOR 9,1 ‘Select palette 1 for color 
KEY OFF:CLS ‘Clear the screen 
FOR I=58 TO 180 "Sides of box are 5% long 
PSET (11,1) ‘Left side 
PSET (219,1) "Right side 
NEXT I 
FOR I=118 TO 218 ‘Top and bottom are 188 long 
PSET (1,508) ‘Top side 
PSET (1,180) "Bottom side 
NEXT I 
LINE (138,75)-(158,75) ‘First line in middle 
LINE (179,75)-(199,75) ‘Second line in middle 
DOTX=13 ‘Initial x coordinates 
DOTY=8 ‘Initial y coordinate 
DOTXINC=1 ‘Initial x amount to move 
DOTYINC=1 ‘Initial y amount to move 
PSET (DOTX, DOTY) ‘Put initial dot on 
FOR I=l TO 520 "Move dot 5@% times 
DOTXOLD=DOTX ‘Save old x for use when erasing 
DOTYOLD=DOTY "Save old y for use when erasing 
DOTX=DOTX+DOTXINC "Move in x direction 
IF POINT(DOTX,DOTY)=9 THEN 369 ‘See if hit wall 
DOTXINC=—DOTXINC "Hit wall, so reverse x motion 


DOTX=DOTX+2*DOTXINC ' & move in new x direction 
DOTY=DOTY+DOTYINC ‘Move in y direction 


IF POINT(DOTX,DOTY)=0 THEN 480 ‘See if hit wall 
DOTYINC=—DOTYINC ‘Hit wall, so reverse y motion 
DOTY=DOTY+2*DOTYINC ' & move in new y direction 
PRESET (DOTXOLD, DOTYOLD) ‘Erase old dot 
PSET (DOTX, DOTY) ‘Draw dot in new location 

NEXT I 

PRESET (DOTX, DOTY) 'Erase last dot 


LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
AS=INKEYS:IF AS="" THEN 458 ELSE CLS 
END 


CHAPTER 6 


THE LINE STATEMENT 


We now proceed to the LINE statement, the first of the 
higher-level graphics commands. By “‘higher-level’’ we 
mean commands which perform tasks that would take 
many executions of PSET. Higher-level graphics com- 
mands save not only trouble but also a great deal of time, 
because they run much faster than the equivalent collec- 
tion of PSETs. 

The LINE statement allows us to draw lines at any angle 
and to draw rectangles whose edges are parallel to the 
sides of the screen. LINE also allows us to fill in the rectan- 
gle we draw with any color. 

To get an idea of what LINE can do, enter medium-reso- 
lution graphics mode with palette 1 selected on a black 
background (from now on we will assume you are using 
palette 1 unless otherwise noted). Clear the screen, type: 


LINE (108,106)—(186,286) and press Enter 


Use the up-arrow key to return to the top line, press Esc to 
clear the line, and type: 


LINE (156,198) —(286,158),2 and press Enter 
Similarly, type: 

LINE (228,198)—(249,126),,B and press Enter 
and: 

LINE (268,180)—(298,139) ,1,BF and press Enter 
The general form of the LINE statement is LINE (x1,yl) — 
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(x2,y2), color, BF. X1 and yl are the coordinates of the 
start point of the line, and x2 and y2 are the coordinates of 
the end point. In medium-resolution mode, color may be @ 
for the background color, or any of colors 1, 2, or 3 from 
the active palette. 

The parameter B, if present, indicates that a box should 
be drawn, with (xl,yl) as one corner of the rectangle, and 
(x2,y2) as the corner at the other end of the diagonal. The 
parameter BF causes a box to be drawn and filled with the 
color specified by the color parameter. All parameters to 
the LINE statement are optional except for x2 and y2. The 
last point referenced by the LINE statement is the point 
(x2,y2). 

LINE is the first really complex command we’ve encoun- 
tered, so we'll cover it one part at a time, with “hands-on” 
examples. 

The (x1l,y1) and (x2,y2) parameters are the start and end 
points of the line to be drawn. Clear the screen by pressing 
Ctrl-Home, and type: 


LINE (198,58)—(280,150) and press Enter 
A diagonal line will appear; this is LINE in its simplest use. 
Either coordinate may be specified in either relative or 


absolute form. (The above example uses absolute screen 
addressing.) Type: 


PSET (99,68) 
to set the last point referenced, then type: 
LINE STEP(1%,28)—(288,186) and press Enter 


which will draw a line parallel to the first. If relative mode 
is used for the second point, the first point is used as the 
last referenced point, and the second point is calculated in 
relation to the first point. For example, LINE (19@,2@) — 
STEP (1@@,19@) will draw another parallel line. Relative 
mode may be used for both coordinates; type: 


PSET (8,0): LINE 
STEP (199,608) —STEP (199,196) and press Enter 


to create a fourth line. 


The Line Statement 


The starting point may be omitted. In this case, the last 
point referenced is used as the starting point, just as if 
STEP(@,0) had been specified for the first coordinate. Clear 
the screen and type: 


PSET (168,108): LINE—(198,198) and press Enter 


noting that the starting point of the line is, indeed, at loca- 
tion (199,199). 

Lines can be drawn in any of the four available colors 
by varying the color. For example, LINE (190,10@) — 
(200,19), 2 draws a magenta line. 

The last parameter is either the letter B or the letters BF. 
These are not numeric variables like x or y, but rather 
alphabetic characters. Only one of these two parameters 
can be specified, because their operations are exclusive of 
one another. If the B parameter is present, it directs the 
drawing of a box or rectangle. For an example of the oper- 
ation of the B parameter, clear the screen and type: 


LINE (198,58)—(296,159) ,3,B and press Enter 


This will draw a box with corners (199,50), (200,59), 
(200,159), and (100,15). Were it not for the B option, four 
LINE statements would be required to draw the same box. 
Worse yet, four FOR . . . NEXT loops with PSET state- 
ments would be required to produce the same result. 

The sides of the box are always parallel to the edges of 
the screen. There is, alas, no way to specify a box tilted at 
an angle, although one could combine the lines produced 
with four separate LINE statements to produce such a box. 
The starting coordinate pair (xl,y1) is one corner of the 
box, and the second coordinate pair (x2,y2) is the opposite 
corner. The four corners of the box are (xl,yl), (xl,y2), 
(x2,y1), and (x2,y2). 

The optional BF parameter indicates that a box should 
be drawn and filled with the selected color. For example, 
CLS: LINE (199,5@)—(299,15Q@),2,BF draws a magenta 
box. 

In general, out-of-range coordinates to LINE are changed 
to the nearest valid (on-screen) value and no error message 
is given. Any y values greater than or equal to 200 are 
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treated as 199, any negative x or y values are treated as Q, 
and x values greater than 319 are treated as 319. 

And that’s really all there is to the LINE statement. 
While LINE is certainly more complicated than PSET, the 
advantages in speed, clarity, ease of use, and compactness 
of code are great. The LINE statement is not the most ver- 
satile of the graphics commands, but there is no faster 
way to draw an object of solid color available in IBM 
BASIC. 

The LINE statement is useful for drawing bar graphs, 
line figures, and graphing and plotting axes. Continuous 
graphs, such as that of sales over time, are made by omit- 
ting the starting-point coordinate pair for all but the first 
point plotted, so that a line is drawn from each point to the 
next, producing an unbroken plot. 


AN EXAMPLE OF THE LINE STATEMENT 


The program shown in Listing 6-1 uses the LINE state- 
ment to create the image of a face. Because we are 
restricted to using lines, the image is angular, but notice 
how quickly the image is drawn, including the solidly col- 
ored areas of the eyes. We initially drew the eyes solidly 
colored, and then drew a smaller, solid box of color @ to 
restore the pupil areas to the background color. The opera- 
tion takes place so fast that it is impossible to see the sol- 
idly colored eyes for the moment they are on the screen 
before the pupils are drawn. We also omitted the starting 
coordinate for LINE when drawing the last two segments 
of the mouth; this is a handy way to produce smoothly 
connected lines. 


82 


118 REM 


128 SCREEN 1,0 
138 COLOR 9,1 
148 KEY OFF:CLS 


158 LINE 
168 LINE 
178 LINE 
188 LINE 
198 LINE 
206 LINE 
210 LINE 
228 LINE 


The Line Statement 


Listing 6-1. LINE Statement. 
100 REM Program that demonstrates the capabilities 


of the LINE statement. 

‘Set medium-res color mode 
"Select palette 1 for color 
"Clear the screen 


(118, 58)-(218,158),2,B 
(138, 78)-(158,98),1,BF 
(135,75)-(145,85),@,BF 
(176, 78)-(198,98),1,BF 
(175,75)-(185,85),0,BF 
(125,118)-(148,125),3 
-STEP (49,9) 
-STEP(15,-15) 


‘Head 

‘Left eye 

‘Left pupil 

"Right eye 

"Right pupil 

"Left side of mouth 
‘Center of mouth 
"Right side of mouth 


230 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
249 AS=INKEY$:IF AS="" THEN 248 ELSE CLS 


259 END 
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ELLIPSES, ARCS, AND 
WEDGES—THE CIRCLE 
STATEMENT 


So far, we’ve learned how to control a single pixel, and 
we've learned how the LINE statement can save us a FOR 

. NEXT loop and considerable time when drawing 
lines. Drawing most objects, however, requires more than 
simple straight lines; unfortunately, nonlinear forms are 
usually much more difficult to draw, often requiring com- 
plex calculations and considerable code. On most micro- 
computers, forms such as circles and arcs are drawn with 
machine-language subroutines which are tedious to use 
and difficult to write and debug. 

Once again, the PC simplifies programming. The CIR- 
CLE statement gives us the ability to draw circles, arcs, 
and wedges of any size and radius with a single statement. 
With the CIRCLE statement, the PC graphics programmer 
is free to concentrate on the conceptual aspects of many 
graphics applications rather than on esoteric program- 
ming techniques. 

Make sure that you are in medium-resolution mode with 
palette 1 selected. Clear the screen and type: 


CIRCLE (48,126) ,38 and press Enter 
followed by: 
CIRCLE (148,126) ,59,3,8,2 and press Enter 


Ellipses, Arcs, and Wedges—The Circle Statement 


and: 
CIRCLE (249,126) ,49,3,—1,—-5,2 and press Enter 


Notice the variety of forms that are easily produced with 
the CIRCLE statement. 

There can be as many as seven parameters to the CIR- 
CLE statement, but we will start off with a simpler form of 
the statement and build up to the full specification. In the 
basic form, CIRCLE (x,y),radius,color, x and y are the 
coordinates of the center of the circle (in either absolute or 
relative), radius is the distance from the center to the 
outer edge of the circle, and color selects the color of the 
edge of the circle, with color @ the background and the 
other three colors belonging to the selected palette. The 
color parameter is optional and defaults to color 3. Note 
that radius is the distance from the center of the circle to 
the edge as measured in pixels on the screen. The impor- 
tance of this will become apparent shortly. The last point 
referenced by the CIRCLE statement is the center of the 
circle. 

To draw a magenta circle, for example, type: 


CIRCLE (168,199) ,58,2 and press Enter 
To draw another circle concentric to the first, type: 
CIRCLE (168,199) ,38,1 and press Enter 
and: 
CIRCLE (169,198) ,48 and press Enter 


to produce yet another. 

CIRCLE has an error-handling characteristic worth not- 
ing. If any part of the circle is off the screen, that portion is 
simply not drawn; no error message is given. The last 
point referenced is the center of the circle, even if that 
point is off the screen. Entering CIRCLE (199,19@), 3@: 
CIRCLE STEP (9,1999), 3@ followed by CIRCLE STEP 
(9,199), 30: CIRCLE STEP (@,—29@®), 5@ produces two 
concentric circles. This result is straightforward; just 
remember that off-screen circles are handled like any 
other circles except the off-screen portions aren’t shown. 
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And remember that there is no error message produced, 
so that it will not necessarily be obvious immediately if 
you have erroneously plotted a circle off the screen. 

Listing 7-1 draws circles of various sizes and colors (see 
Fig. 6 in the color photograph section). The function R 
MOD 4 on line 150 returns the remainder of the division of 
R by 4, so that values can only be @ through 3. These val- 
ues correspond to the four colors available in medium-res- 
olution mode. As the value of R varies from 1 to 9@ in 
increments of 5, the color parameter will cycle through 
each of the four colors. 


Listing 7-1. Circle Statement. 
168 REM Program to demonstrate the CIRCLE statement. 


119 SCREEN 1,9:COLOR 9,1 "Set screen 

12@ KEY OFF:CLS ‘Clear screen 

138 REM Draw circles of various sizes and colors 

148 FOR R=l TO 98 STEP 5 ‘Step through 18 radiuses 


158  CIRCLE(168,100),R,R MOD 4 ‘Color based on radius 
168 NEXT R 

178 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 

188 IF INKEYS="" GOTO 188 ELSE CLS 

198 END 


There is a useful trick to be learned from Listing 7-1. Ifa 
key has been pressed, the INKEY$ function returns that 
character; if not, INKEY$ returns a null string. INKEY$ 
can be used to detect keystrokes with a program line, such 
as IF INKEY$<>”’’ THEN instructions to handle key 
pressed. 

On line 180, INKEY$ is used to keep BASIC from print- 
ing anything on the screen, and thus “messing up” the 
display, until a key is pressed. A similar line can be 
inserted after any display has been drawn, giving you time 
to admire your handiwork. This is a useful trick and you 
may have noticed it in previous programs. 


ARCS AND WEDGES 


A circle can be used to represent the sun, a target, or a 
ball. A collection of circle fragments, or arcs, can look, on a 
computer screen, like hills, waves, seagulls, or plots on a 
diagram. Similarly, a circle with a wedge removed, can 
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appear to be a pie, a pie chart, or even the most popular 
arcade creature of all time. When we add two parameters 
to the CIRCLE statement, we make it possible to produce 
these arcs and wedges. 

The expanded CIRCLE statement is CIRCLE (x,y), 
radius, color, start, end. Start and end are the two ends 
of the arc to be drawn. The values of start and end are 
specified in radians. When measuring in radians, for ex- 
ample, the three-o’clock point on the circle is 9, and the 
values increase counterclockwise to 3.14 (pi) at nine 
o’clock, and to about 6.28 (2 times pi) at the three o’clock 
position. Note that the values for start and end must be 
between —6.28 and 6.28, which is contrary to standard 
practice. The meaning of negative values for start and end 
will be explained subsequently. 

The arc is drawn beginning at start and continuing 
counterclockwise to the end value. This is true even if the 
arc wraps around past the three o’clock, or zero radians, 
point. 

Start and end are optional parameters. Start defaults to @ 
and end defaults to 6.28. This means that the defaults 
start at the three o’clock position and end, after rotating 
counterclockwise through the entire circle, back at the 
three o’clock position. If both parameters are omitted, the 
whole circle will be drawn. Remember that if you do use 
the start and end parameters, you must either use the 
color parameter or insert a double comma to hold the 
color parameter’s place. 

Let’s draw a few arcs to get used to using the start and 
end parameters. Clear the screen and type: 


CIRCLE (160,199) ,38,,8,3.14 and press Enter 


to draw the upper half of a circle. Note the use of two com- 
mas to hold the place of the omitted color parameter. CIR- 
CLE (169,19@),3@,2,3.14,@ draws the other half in color 
number 2. Clear the screen and type: 


FOR I=18 TO 298 STEP 2@: CIRCLE 
(1,168) ,18,2,3.14,8: NEXT and press Enter 


to draw a series of peaks. Remember that arcs are always 
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drawn counterclockwise, so a start and end of 3.14 and @Q, 
respectively, specify the drawing of the bottom half of a 
circle. 
We can draw more than circle halves. Clear the screen 
and type: 
FOR I=18 to 5@ STEP 1@: CIRCLE 
(168,108) ,1,,2.3,4.0: NEXT and press Enter 


to draw smaller arcs. 
Clear the screen and type: 


CIRCLE (168,189) ,49,,4,3 and press Enter 
to see how arcs wrap past the three o’clock point if the end 
parameter is less than the start parameter. 

A wedge, or pie slice, is nothing more than an arc with 
lines connecting the end points to the center of the circle. 
With the CIRCLE statement, if either start or end is a neg- 
ative number, that point is connected to the center of the 
circle. (The start or end value is then used as if it were a 
positive number; this is not the same as adding 2 times pi 
to the number, which is standard mathematical practice.) 
If both points are negative, a wedge is formed. For exam- 
ple, clear the screen and type: 

CIRCLE (169,199) ,38,,—1.57,—3.14 and press Enter 
to draw a pie quarter, and type: 

CIRCLE (249,196) ,39,2,—3.14,—1.57 and press Enter 
to draw the pie the quarter was cut from. Only one of the 
sides of the wedge need be drawn, as evidenced by typing: 

CIRCLE (188,199) ,28,,—-1.57,4 and press Enter 
and: 

CIRCLE (198,169) ,39,,1.57,—4 and press Enter 

These wedge-drawing capabilities of the CIRCLE state- 


ment will be useful later when we create a pie-chart draw- 
ing program. 


ASPECT AND THE SCREEN 


Another capability of the CIRCLE statement is the draw- 
ing of ellipses. For our purposes, an ellipse is a circle that 
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is not necessarily perfectly round (an egg in profile, for 
example), although that is not quite the technical defini- 
tion. Ellipses and sections of ellipses are frequently 
encountered in graphics work—in fact, you will discover 
the circles we have already plotted were, properly speak- 
ing, noncircular ellipses. 

Admittedly, the circles looked perfectly circular, but the 
separation on the screen between two pixels is greater in 
the vertical direction than in the horizontal direction. The 
two values are close enough so the effect of this is unno- 
ticeable for a small drawing. For example, draw a square 
with: 


CLS: LINE (58,58)—(159,158),,B and press Enter 


The difference between the horizontal and vertical 
dimensions should be apparent if you look closely. Leave 
the image on the screen and draw a circle of the same size 
by typing: 

CIRCLE (109,188) ,58 and press Enter 


The effect will now be unmistakable. 

Just how irregular the standard screen is is hard to say. 
The BASIC manual has a confusing discussion of screen 
aspect, in which the values 4/3, 8/5, and 24/20 are men- 
tioned. (Different versions of BASIC have different discus- 
sions, but none of the manuals are particularly clear.) On a 
standard screen, 5 pixels vertically cover the same dis- 
tance as 6 horizontally, and so 5/6 is the proper correction 
for the aspect of the screen. 

The CIRCLE statement automatically compensates for 
the screen’s irregularity by drawing ellipses elongated to 
compensate; the effect is a figure that looks perfectly 
round. Measured in inches, the figures we have produced 
with CIRCLE are indeed circles, but, measured in pixels, 
they are not. This is why we need to remember that radius 
is measured in pixels rather than in inches. In BASIC, the 
radius is not the distance from the center to the edge of the 
circle at all points, but rather only at two special points. 
This brings us to the concept of aspect ratio. 

The dimensions of an ellipse can be measured both hori- 
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zontally (on the x axis) and vertically (on the y axis). The 
ratio of the y axis to the x axis is the aspect ratio, which, 
for a true circle, is 1. For consistency, all aspect ratios 
from now on will be discussed in terms of length in pixels 
rather than inches. For the circles we plotted, the aspect 
ratio was 5/6; the slight shortening of the y axis produces 
the visual effect of a circle. A shape like a flying saucer 
would have a low aspect ratio, perhaps 1/5, while a shape 
like an egg standing on end would have a high aspect ratio 
of perhaps 4/1. 

The shape of an ellipse drawn with CIRCLE is defined by 
the aspect ratio. The complete form of the CIRCLE state- 
ment is CIRCLE (x,y),radius,color,start,end,aspect 
where aspect is the aspect ratio of the circle. For example, 
type: 


CIRCLE (166,108) ,58,,,,1: CIRCLE (160,198) ,70 
and press Enter 


and the noncircularity of a circle with an aspect ratio of 1 
is readily apparent. 

With aspect ratio in mind, we can now consider the 
actual meaning of the radius parameter, which alone 
determines the size of the ellipse. Simply put, radius is 
measured in pixels along the longer of the two ellipse axes. 
If the aspect ratio is 1, for example, then radius is the dis- 
tance from the center to the edge of the circle along both 
axes. If the aspect ratio is less than 1 (this means that the 
x axis is the longer axis) then radius is the distance from 
the center to the edge of the circle along the x axis only. 
Similarly, if the aspect ratio is greater than 1, radius is the 
distance from the center to the edge along the y axis only. 
This means that the radius of the default circle (the circle 
produced by the CIRCLE statement in the absence of the 
aspect parameter) is measured along the x axis only, 
because aspect defaults to 5/6. This can be useful knowl- 
edge when doing precision graphics. 

To see the aspect parameter in action, type and run the 
program in Listing 7-2. This program first decreases the 
aspect ratio from 19 to 1 while holding radius constant; 
notice that the length of the y axis is constant from circle 
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to circle, while the x axis steadily lengthens. This is 
because the aspect ratio is greater than 1, so radius is 
measured in pixels along the y axis. The aspect ratio is 
then decreased from 1 to 1/1; here, the length of the x 
axis remains constant at radius, while the y axis steadily 
shortens. 


Listing 7-2. Varying Aspect Ratio with CIRCLE 
Statement. 


190 REM Example of varying the aspect ratio with 

118 REM the CIRCLE statement. 

128 REM Initialize screen 

13@ KEY OFF:CLS:SCREEN 1,0:COLOR 9,1 

148 REM Draw ellipses of different widths 

158 FOR ASPECT=19 TO 1 STEP -l1 ‘Use 19 aspect ratios 
166 GOSUB 260 ‘Draw ellipse 

176 NEXT ASPECT 

180 REM Draw ellipses of different heights 

196 FOR ASPECT=1 TO .1 STEP -.1 ‘Use 19 aspect ratios 
286 GOSUB 268 ‘Draw ellipse 

218 NEXT ASPECT 

226 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 

238 AS=INKEYS:IF AS="" THEN 230 ELSE CLS 

248 END 

259 REM Subroutine to draw new ellipse 

260 CIRCLE (160,100),69,3,,,ASPECT ‘Draw new ellipse 
270 REM Wait a bit so the new ellipse can be viewed 
288 FOR PAUSE=1 TO 5@8:NEXT PAUSE 

298 RETURN 


In this example, the subroutine starting at line 250 
draws the new ellipse. Note that there is a delay so the 
viewer has time to appreciate one circle before the next is 
drawn. The FOR . . . NEXT loop at lines 150-170 runs 
through aspects from 10 to 1, while the FOR. . . NEXT 
loop at lines 190-210 draws circles with aspects from 1 to 
0.1, stepping by 1/19. 

Only a few lines are required to draw a wide range of 
curved shapes with the complete CIRCLE statement, and 
with sufficient ingenuity, arcs of various aspects and sizes 
can be pieced together to produce virtually any curvature. 

As a final note on ellipses, the BASIC manual states that 
an aspect ratio of 1 may produce circles (which appear to 
be slightly ellipsoid) that are more attractive than the 
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default 5/6 aspect ratio. This is because circles are drawn 
symmetrically, with fewer jagged edges, when the aspect 
ratio is 1. The manual states that circles with an aspect 
ratio of 1 are also drawn somewhat faster; in actual prac- 
tice, the increase in drawing speed seems negligible, par- 
ticularly given the rather slow speed of the CIRCLE state- 
ment. Lastly, the BASIC manual indicates that aspect is 
the ratio of the x axis to the y axis, when, in fact, aspect is 
the ratio of the y axis to the x axis. 

We have touched on some of the applications for the 
CIRCLE statement, and we will discuss other applications 
in later example programs. You may have noted the slow 
execution speed of the CIRCLE statement and thought 
that this limits the usefulness of CIRCLE when rapid 
drawing must be performed, but this is not so. The graph- 
ics GET and PUT statements, to be covered later, can 
work with the CIRCLE, PAINT, and DRAW commands to 
generate graphics displays with remarkable rapidity. With 
the help of GET and PUT, even arcade-type games of 
many kinds can be written in PC BASIC without the help 
of machine-language routines, and that is a claim that few 
BASICs can make. 

The CIRCLE statement is a key element of the Pie Chart 
program discussed in Chapter 9. 
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THE PAINT STATEMENT—THE 
ARTIST'S BRUSH 


Thus far, we have acquired considerable control over 
drawing lines of various sizes, shapes, and colors on the 
screen. We have not, however, developed much of an abil- 
ity to program the PC to fill in these areas (the BF option to 
the LINE statement is the exception). Because the color set 
of the PC includes many light and pastel colors, large 
areas of solid color often produce vivid effects. What we 
need is a “‘brush”’ capable of coloring our computer-gener- 
ated bars on histograms, wedges in pie charts, and coun- 
tries on maps. 

We get all of the above in a simple, yet remarkably ver- 
satile, form in the PAINT statement. Clear the screen in 
medium-resolution graphics mode and type: 


CIRCLE (168,198) ,49,2 and press Enter 
followed by: 
PAINT STEP(@,),2 and press Enter 


to see how readily a solid area can be colored with the 
PAINT statement. 

The general form of the PAINT statement is PAINT 
(x,y),paint,boundary where x and y are the absolute or 
relative coordinates at which the painting is to start, paint 
is the color with which the area is to be filled, and bound- 
ary is the color of the border of the shape that is to be col- 
ored. Paint and boundary are optional, with paint default- 
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ing to the foreground color (color 3) and boundary default- 
ing to the paint color. 

In plain English, what PAINT does is best described as: 
“Starting at x,y, fill in with the paint color everything that 
can be reached without touching or passing anything that 
is the boundary color.” 

If the start point is the boundary color, PAINT has no 
effect. The last point referenced by PAINT is the start 
point. 


Note: an ‘Illegal function call” error results if you 
attempt to PAINT starting at a point off the screen, 
whether that point was specified by absolute or rela- 
tive addressing. However, that off-screen point is the 
last point referenced despite the error. For instance, 
PAINT (160,20@) produces an error, but if the com- 
mand is immediately followed by PSET STEP(@,-—1) 
a dot is drawn at (160,199). This can be important if 
you are “trapping” errors with the ON ERROR state- 
ment. 


Let’s PAINT a little. Clear the screen in medium-resolu- 
tion graphics mode and type: 


LINE (28,108)—(58,130),,B: PAINT (30,119) and 
press Enter 


to produce a solid square. Now try: 


CIRCLE (119,198) ,50,2: PAINT STEP(@,8),2 and 
press Enter 


to produce a solidly colored ball, and: 


CIRCLE (220,198) ,5@,3: PAINT STEP(®,8),1,3 and 
press Enter 


to create a colored ball with a differently colored edge. 
(The difference between the ball and its edge may not be 
clear on a television display.) 

Notice that while the BF option to the LINE statement 
could have produced the solid square, it would have been 
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extremely difficult to produce the solid circles without the 
PAINT statement. 

The object to be filled in need not be regular. Clear the 
screen and type: 


CIRCLE (169,190) ,50: LINE (48,40)—(220,150): 
CIRCLE (189,98) ,48 and press Enter 


Then type: 
PAINT (176,80) ,2,3 and press Enter 


Clearly, even the most jagged form can be filled in easily 
with the PAINT statement. 
Clear the screen and type: 


CIRCLE (168,180) ,58,3: PAINT STEP(9,9) ,2 and press 
Enter 


The whole screen fills in, because the boundary color 
defaults to the paint color, which is 2 in this case. Because 
the circle is drawn in color 3, the boundary color is never 
found, and the painting continues to the edge of the 
screen. The statement PAINT STEP(@,@),2,3 would have 
worked properly. 

Incidentally, the above example demonstrates that 
PAINT is a useful, albeit somewhat slow, way to set the 
entire screen to a color other than color Q, the background 
color. 


PAINTING TIPS 


The use of PAINT is straightforward: if there is a figure 
you want filled in, start PAINT somewhere inside that fig- 
ure, and if there is an area you want filled in, outline and 
PAINT it. 

You may have noticed that PAINT goes off in each of 
several directions in turn when it starts in the middle of a 
figure or when it comes to an irregular surface. Thus, the 
PAINT command fills the entire area within the boundary. 
Starting the command in a corner (preferably at the upper 
or lower edge of the figure, such as the twelve o’clock 
point on a circle) enables PAINT to operate more 
smoothly. 
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PAINT uses a good deal of memory to keep track of all 
the turns it must make. With a complex figure, there can 
be many pending turns, and the PAINT command may 
run out of memory. If this occurs, an ‘Out of memory” 
error message is displayed. More memory can be allocated 
for the use of the PAINT command (at the expense of pro- 
gram memory) by entering CLEAR,,3@0@. This should 
take care of any potential memory problems related to 
PAINT while leaving plenty of memory available for your 
programs. Only in the case of a very large program and/or 
a very complex PAINT command should the amount of 
memory reserved in the CLEAR command be larger. 
Remember that the CLEAR command sets the value of all 
variables to zero, so it should be used only at the begin- 
ning of a program. Check the BASIC manual for more 
information on the CLEAR command. 

A condition to watch for on television sets and compos- 
ite monitors is the apparent presence of gaps in the bound- 
ary of a colored figure, especially when the figure is a cir- 
cle. The edges are there whether the screen displays them 
or not, and PAINT recognizes these edges and stops at 
them. The gaps appear because, often, only every other 
colored pixel appears on composite displays. If you 
become confused in such a situation, use white which 
always shows every pixel to draw the boundary of the 
figure. 

You may have noticed that PAINT can be slow. This is 
especially apparent when filling in large, irregular figures. 
When using PAINTed forms in animation, the GET and 
PUT graphics commands will increase greatly the speed of 
the animation. In general, though, PAINT is a remarkably 
useful, easily applied command that puts the splashy 
color graphics of the PC at your fingertips. 


An Example of Paint 


The program shown in Listing 8-1 demonstrates the use of 
the PAINT statement. Three circles are drawn and each is 
PAINTed a different color (see Fig. 7 in the color photo- 
graph section). The specification of STEP(@,Q) as the start- 
ing point for each PAINT statement means that each 
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PAINT statement starts at the center of the circle just 
drawn. This is an easy way to make sure the PAINTing 
will begin within the bounds of the circle. 


1968 
116 


218 
228 


Listing 8-1. PAINT Statement. 


REM Program to demonstrate the PAINT statement. 
SCREEN 1,8:COLOR %,1:KEY OFF:CLS 


REM Draw three circles and PAINT starting at 
REM the centers with three different colors 
CIRCLE (128,898) ,49,3 ‘Draw first circle 
PAINT STEP(G,8),3,3 ‘Fill in with white 
CIRCLE (150,120),40,3 ‘Draw second circle 
PAINT STEP(9,@),1,3 ‘Fill in with blue 
CIRCLE (188,80) ,48,3 ‘Draw third circle 
PAINT STEP(9,8),2,3 ‘Fill in with purple 
LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 


AS=INKEY$:IF AS="" THEN 218 ELSE CLS 
END 
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A PIE CHART PROGRAM 


We are now ready to put our knowledge to work in the 
design of a program. Our program will prompt the user for 
a number of data points, and then draw a circle sliced into 
wedges which are sized according to the data entered by 
the user. This type of display is known as a pie chart, and 
is useful for quickly communicating relative magnitudes. 
Pie charts are standard tools for business and statistical 
presentations. The complete program is shown in Listing 
9-1, and a sample pie chart is shown in Fig. 8 in the color 
photograph section. 

The overall logic flow of the program follows. First, the 
screen is set for graphics, then the data is input, and, 
finally, each wedge is drawn in turn, sized in proportion to 
the data it represents, and labeled appropriately. We can 
now turn this general outline into actual BASIC program 
code. 

First, line 120 clears the screen and sets the screen to 
medium-resolution graphics mode with palette 1 selected 
against a black background. Next, on line 140, the pro- 
gram prompts the user for the number of items to be 
graphed. (The INPUT statement shown first prompts the 
user with the string ‘‘Number of items:’’ and then stores 
the value typed at the keyboard in the variable N.) The 
FOR . . . NEXT loop on lines 170 through 210 prompts 
for the label and value of each of the N data points speci- 
fied previously. Also maintained in this loop is a sum of 
the total value of all the data points typed, so that the 
proportion represented by each point can later be cal- 


98 


A Pie Chart Program 


Listing 9-1. Pie Chart. 


1@@ REM Piechart program. 

118 REM Initialize the screen 

128 SCREEN 1,%9:COLOR 9,1:KEY OFF:CLS 
130 REM Get all the values needed 

14@ INPUT "Number of items (1-9)";N 
158 IF N<@ OR N>9 THEN 149 

166 TOTAL=0 

176 FOR I=1 TON 

188 INPUT "Number, Label";ITEM(I),LS 


198 LABELS (I )=LEFT$ (LS, 7) ‘Labels 7 long maximum 

206 = ‘TOTAL=TOTAL+ITEM(I) ‘Sum of total of inputs 

218 NEXT I 

228 CLS ‘Clear the screen 

230 OLDANG=0 ‘Init angle at which last wedge was drawn 
248 TWOPI=6.28 ‘The radian equivalent of 368 degrees 

258 FOR I=l1 TON ‘There will be N wedges drawn 


268 REM Calculate fraction of circle taken by this wedge 
279 ADDANG=TWOPI* (ITEM(I) /TOTAL) 

286 REM Calculate the ending angle for this wedge 

298 NEWANG=OLDANG+ADDANG 

389 REM Draw the wedge with a radius of 68 dots in white 
316 CIRCLE(169,1@0),60,3,—-OLDANG, -NEWANG 

328 REM Calculate the x and y components of the line which 
338 REM would go through the center of the wedge 

348 | XCOMP=COS(OLDANG+(ADDANG/2) ) 

358 YCOMP=-SIN(OLDANG+(ADDANG/2) )*(5/6) 

369 REM Fill in the wedge by painting starting at a point 
376 REM in the center of the wedge 

388 PAINT(16Q+XCOMP*39,190+YCOMP*3G),I MOD 4,3 

398 REM Find a place in text character location terms to put 
496 REM the label for this wedge 

419 LOCATE (102+YCOMP*95)/8, (140+XCOMP*95)/8 

426 PRINT LABELS(I) ‘Label the wedge 

436 REM The new angle for this wedge is the old angle for 
449 REM the next wedge 

450 OLDANG=NEWANG 

460 NEXT I 

478 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 

480 IF INKEyYS="" GOTO 480 ELSE CLS 

499 END 


culated. Note the liberal use of comments to aid compre- 
hension of the program; this practice makes it easier to 
modify a program later, as well as assisting in debugging. 
Line 220 clears the data input dialogue from the screen. 
Because each wedge is drawn in turn, it is simplest to 
start drawing each new wedge at the end of the previous 
wedge. The variable OLDANG is the angle (measured, as 
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are all angles in this program, in radians) of the counter- 
clockwise side of the previous wedge. OLDANG is initially 
set to zero on line 230 so that the first wedge will begin at 
the three o’clock position. 

The variable TWOPI equals the constant value of the 
number of radians in a complete circle, which is 6.28, as 
set on line 240. 

We are now ready to begin drawing each wedge in turn. 


The FOR. . . NEXT loop extending across lines 250-460 
does this while also plotting each wedge and coloring and 
labeling it. 


Line 270 calculates the fraction of a full circle that the 
current data point represents. This fraction, stored in the 
variable ADDANG, is equal to the distance around the cir- 
cle from the start of the wedge being plotted. On line 290, 
this wedge width is added to the wedge starting point to 
produce the wedge end point, which is stored in the vari- 
able NEWANG. 

Line 310 does all the actual drawing of the wedge. The 
circle that the wedge is cut from is centered on the screen, 
has a radius of 60, and is drawn in white (color 3). Also, 
note that the use of minus signs (’’—”’) in front of OLDANG 
and NEWANG causes a line to be drawn from each end of 
the arc to the center of the circle, forming the wedge. 

Now we can color the wedge with PAINT. First we must 
figure out where to start the PAINT. The simplest 
approach is to start halfway between the edges of the 
wedge, and halfway between the center and the edge of 
the circle. Lines 340 and 350 calculate XCOMP and 
YCOMP, the x and y components of the line that extends 
from the center of the circle midway between the sides of 
(that is, bisecting) the wedge. Note that SIN is made nega- 
tive; this is because mathematical convention has y 
increasing from the bottom upward, but, as we have 
already mentioned, on the PC screen y increases from the 
top downward. Also, the y component is multiplied by 5/6 
to compensate for the aspect ratio of the screen. (Recall the 
discussion of aspect ratio in Chapter 7.) 

Line 380 colors the wedge. White is the boundary color 
of the PAINT, because line 300 outlined the wedge in 
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white. The section reading I MOD 4 generates the values 
9,1,2,3,0,1,2,3,0,1, . . . for the color parameter over 
and over as the value of I increases, thus cycling through 
each of the four available colors in turn. Each wedge is a 
different color than the wedge before. 

The label can now be printed by lines 410-420. The label 
is centered on the same bisecting line used to select the 
point on which PAINT began, but it is located outside the 
circle. The value 95 is used in line 410 so that the label is 
printed well outside the circle which has a radius of 60. 
The values are divided by 8 because the LOCATE state- 
ment, which sets the screen position at which the next 
PRINT occurs, works in terms of characters, not pixels, 
and each character is 8 pixels wide and 8 pixels high. 

The wedge is now complete. Because the next wedge 
begins where this wedge ended, the next wedge’s trailing 
edge (OLDANG) is set equal to the leading edge of the cur- 
rent wedge (NEWANG). The FOR . . . NEXT loop then 
proceeds to the next data point. 

After all the data points have been plotted, it remains 
only to end the program. As discussed earlier, the INKEY$ 
function returns a null string (‘‘’’) when no key has been 
pressed. Line 480 monitors the keyboard continually and 
ends the program only after a key press is detected. At this 
point the program is finished. 

Type and run the Pie Chart program; for example, use 4 
as the number of data points, and type the following data 
and labels: 5, Alpha; 10, Beta; 12, Epsilon; and 6, Gamma. 
Experiment with several data sets of your own, examining 
how the program centers labels and how it sizes and col- 
ors the wedges. 


IMPROVING THE PIE CHART PROGRAM 


The Pie Chart program we have discussed is functional as 
is. However, there is room for improvement. The program 
is not as convenient to use as it might be, and the output 
could be labeled more informatively. 

It is inconvenient to have to type the data each time the 
program is run. When making a presentation, particularly 
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if several charts are to be drawn, it would be preferable to 
run the program from previously typed information. An 
alternative is to place the data in a disk file first, then read 
the data from the file and into the program. Then, all that 
needs to be typed when the program is run, is the name of 
the disk file. The data can be put into the disk file either 
with an editor (such as IBM’s Edlin™) or a word processor 
(such as WordStar®), or with a separate BASIC program 
that prompts for the data in much the way that our pro- 
gram does and then writes the data to the disk file. The 
information necessary to work with disk files in BASIC is 
contained in the BASIC manual explanation of the OPEN, 
CLOSE, READ #, and WRITE # statements. 

It would be desirable to have an identifying title at the 
top of the chart. The pie chart might be more effective if 
there were pointers from the labels to their corresponding 
wedges. The percentages or absolute values associated 
with each of the wedges could also be placed next to the 
labels. The object is to convey the maximum amount of 
information to the viewer as easily as possible. The pie 
chart visually indicates relative magnitudes; additional 
information can be available on the screen should the 
viewer desire to know more. 

Consideration of the program user is the paramount 
concern in designing such a program. The colors and 
graphics serve only to convey information, and have no 
function in and of themselves. The data input should be as 
easy as possible, both for the novice and for the frequent 
user. Never forget that while it is satisfying to design daz- 
zling graphics, software that is engineered for the user is 
more likely to be used than software which does not con- 
sider the user. If you develop your skills in this area, even 
simple programs can be appealing and practical to use. 


Apple and Applesoft are registered trademarks of Apple Computer Inc. 
Edlin is a trademark of International Business Machines Corporation. 
WordStar is a registered trademark of Micropro International 
Corporation. 
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ANIMATION FROM BASIC—THE 
GET AND PUT STATEMENTS 


Animation is the process of rapidly drawing and redraw- 
ing a figure to create the impression of motion. Of course, 
there really is no motion, but, like movies, the rapid suc- 
cession of images fools the eye. All arcade games involve 
animation, and animation is useful in other applications 
for attracting and guiding viewers’ attention. 

The graphics statements discussed thus far give us the 
ability to draw figures of virtually any kind; but when it 
comes to animation, statements such as LINE and CIR- 
CLE are nothing more than tools because of their lack of 
speed. These statements can construct an image but can- 
not manipulate that image rapidly enough. What we need 
is a way to save a previously drawn image, then restore it 
rapidly to the screen. Happily for us, the GET and PUT 
graphics statements do precisely that. 

For example, clear the screen in medium-resolution 
graphics mode and type: 


DIM B(10@): CIRCLE (168,108) ,1@: GET 
(145,85)—(175,125),B and press Enter 


then clear the screen and type: 


FOR I=18 TO 258 STEP 1@: PUT (1,10) ,B: PUT 
(1+10,108),B: NEXT and press Enter 


and you’ve produced your first animation! Such a pro- 
gram would be impossible with the slow CIRCLE state- 
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ment—but it is a “‘snap’’ with the GET and PUT graphics 
statements. 

Note that there are also GET and PUT statements 
related to random-access disk-file operations. These state- 
ments are unrelated to the GET and PUT graphics state- 
ments. When we refer to GET and PUT in the remainder of 
this book, we mean the GET and PUT graphics state- 
ments. 

The following background information may help your 
understanding of GET and PUT. An array is a series of 
variables strung together, all referred to by the same vari- 
able name but with different index numbers known as 
subscripts. For example, DIM TEMP(1@@) sets aside 101 
storage locations to be referred to as TEMP. The first loca- 
tion is referred to as TEMP(Q), the next as TEMP(1), and so 
on up to TEMP(19@). All the storage locations referred to 
by TEMP constitute the array TEMP. 

The GET graphics statement transfers the contents of a 
rectangular area of the screen into an array. The general 
form of the statement is GET (x1l,y1)—(x2,y2),arrayname 
where x1, yl, x2, and y2 are the coordinates of opposite 
corners of the rectangular area and arrayname is the 
array into which the contents of that area of the screen are 
to be stored. The coordinates are specified precisely, as are 
the coordinates for the LINE statement, with either coordi- 
nate in absolute or relative form. However, the first coordi- 
nate is not optional. In fact, all of the parameters are 
required. The last point referenced by GET is the point 
(x2,y2). 

The array may be of any numeric data type, but it is eas- 
iest to use arrays of type integer consistently. The array 
must be dimensioned by the DIM statement large enough 
(have enough memory locations set aside) to contain the 
specified screen area. For integer arrays the form for array 
size is INT((x/8)+1)*y+2 where x=ABS(x2—-x1)+1 
and y=ABS(y2—y1)+1. This will calculate roughly the 
required size of the array in medium-resolution 
graphics mode, leaving a little extra space just to make 
sure. (The z=ABS(x) function returns the absolute value of 
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x. If x is negative, then z=x*(-1); if x is positive, 
then z=x.) 

For example, if you were to enter GET (10,10) — 
(19,29), PIC1 in medium-resolution mode, the integer 
array PIC1 would have to be dimensioned to INT ((10/ 
8)+1)* 29+2 = 42 storage locations using the statement 
DIM PIC(42). The GET statement section of the BASIC 
manual describes the method for calculating the exact 
minimum allowable size of the array, but, unless you’re 
running out of memory, it’s easist to make a rough esti- 
mate on the safe side. 

If the array is, in fact, too small to hold the image, or if 
the GET statement references a point off the screen, an 
“egal function call’ error results when the GET is per- 
formed. If this happens, the last point referenced is still 
set. Precisely what point that will be depends on what 
elror occurs, so be aware that the last point referenced 
may behave unexpectedly if the GET statement generates 
an error. 

The PUT graphics statement is the companion state- 
ment to GET but is not strictly the reverse of GET. In fact, 
there are five ways in which the image may be PUT into 
the screen, and each has a different application. 

The PUT statement is PUT (xl,y1),arrayname,action 
-Coordinates x1 and yl define where the upper-left corner 
of the image is to be placed; arrayname is an array in 
which an image has been stored; and action, the only 
optional parameter, selects one of the five ways in which 
the image may be placed onto the screen. Valid values for 
action are PSET, PRESET, XOR, OR, and AND. If no value 
for action is selected, XOR is the default. The coordinates 
may be specified in absolute or relative form. The last 
point referenced is (xl,y1). As with GET, an “Illegal func- 
tion call’ error results if PUT references a point off the 
screen. The last point referenced is (x1,y1) even if an error 
occurs. 


THE FIVE PUT OPTIONS 


The most useful of the five options with which an image 
can be PUT onto the screen are PSET and XOR. The PRE- 


105 


Graphics for the IBM PC 


SET, OR, and AND options have few practical applications 
and often result in undesirable color effects. Fig. 9 in the 
color photograph section, which is produced by the pro- 
gram in Listing 10-1, shows the operation of the five 
options against various backgrounds. 

PUT with the PSET option is nothing more than the 
reverse of GET. The image previously stored in an array 
with the GET statement is then displayed on the screen 
with PUT (x,y),arrayname,PSET, erasing what was 
already there. The PSET option is useful for copying an 
image drawn with the PSET, LINE, CIRCLE, and PAINT 
statements to a new screen location without laboriously 
redrawing the image. The PSET option is also useful for 
certain types of animation. 

The PRESET option is similar to the PSET option but 
puts the negative of the image onto the screen. In 
medium-resolution mode colors 9 and 3 are reversed, and 
so are colors 1 and 2. That’s how the PRESET option 
works; in all honesty, it’s easier to describe the PRESET 
option than it is to imagine a use for it. 

The XOR option is the default for the PUT statement. 
The operation of the XOR option causes the pixels in the 
image and the corresponding pixels in the screen to be log- 
ically eXclusive ORed (XORed) together. The operation of 
the XOR option, along with that of the other four options, 
is explained in more detail in the section of the BASIC 
manual that covers the PUT statement. 

The XOR option is often used to PUT images against the 
background color; in this case, the effect of one PUT with 
the XOR option is to draw the image on the screen, and 
the effect of another PUT with the XOR option with the 
same image in the same location is to erase the image 
entirely. Therefore, the XOR option can be used to erase 
an image, as well as to draw it. For this reason and others 
to be discussed subsequently, the XOR option is useful for 
animation. 

The OR option to the PUT statement superimposes an 
image over whatever image is already on the screen. 
Unlike the PSET and PRESET options, the portions of the 
image to be PUT that are the background color (color 9) do 


106 


Animation from BASIC—The Get and Put Statements 


not erase the previous image. Basically, the second image 
is placed in front of the original. 

The AND option puts an image onto the screen only 
where there’s already an image. While we undoubtedly 
could come up with some use for the AND option, the 
truth is that the AND option is not especially useful. 

For a demonstration of the five PUT options, type and 
run the program in Listing 10-1. This program puts an 
image onto the screen against each of the four colors. Note 
the various color and background effects produced. For 
more details on the various options, refer to the tables 
under the PUT statement in the BASIC manual. 


Listing 10-1. PUT Statement Options. 


10% REM Demonstration of the five options to the 
116 REM PUT statement. 

126 REM Initialize screen 

130 SCREEN 1,9:COLOR 9,1:KEY OFF:CLS 

148 REM Draw concentric circles of different colors 
15@ CIRCLE(25,25),25,3:PAINT STEP(@,2),3 

168 CIRCLE(25,25),20,2:PAINT STEP(@,9),2 

17@ CIRCLE(25,25),15,1:PAINT STEP(@,9),1 

188 CIRCLE(25,25),10,@:PAINT STEP(@,%),@ 

190 REM Save the image of the circles just drawn 
268 DIM IMAGE(364) :GET(@,@)-(58,50), IMAGE 

210 REM Clear the screen 

228 CLS 

236 REM Put in labels for the five options 

248 LOCATE 14,1 

250 PRINT "kk k*PSET* ** DRESET* XX ORE ER ERAN DEKKER ORE RE 
268 REM Set up a background of different colors so that 
278 REM the various color effects can be observed 
286 FOR I=@ TO 62 

298 = LINE(I*5,120)-(1*5+5,189),I MOD 4,BF 

388 NEXT I 

310 REM Draw the saved image on a black background and 
328 REM on the colored background using each of the 
338 REM options to the PUT statement 

348 PUT(2@,125) , IMAGE, PSET: PUT (20,5) , IMAGE, PSET 

356 PUT(8@,125) , IMAGE, PRESET: PUT(89, 50), IMAGE, PRESET 
360 PUT(14@,125), IMAGE, XOR: PUT(148,5@) , IMAGE, XOR 
378 PUT (200,125), IMAGE, AND: PUT (200,52) , IMAGE, AND 

388 PUT(269,125), IMAGE, OR: PUT( 268,58) , IMAGE, OR 

398 LOCATE 25,9:PRINT "PRESS ANY KEY TO CONTINUE" ; 
400 IF INKEYS="" GOTO 4Q@ ELSE CLS 

416 END 
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ANIMATION 


As described in a preceding section, PUT and GET provide 
us with the capability to produce animation. There are 
rules that must be followed in order to produce convincing 
animation. First, the image on the screen must be moved 
only a short distance each time so the motion seems con- 
tinuous. Also, the previous image must be removed from 
the screen; if it is not, the moving image will appear to 
leave a trail in its wake. 

The animation program in Listing 10-2 repeatedly PUTs 
an image on the screen with the PSET option and then 
PUTs a blank area to erase the image before redrawing it 
in a new location. Lines 140 through 160 draw a colored 
ball, using the CIRCLE statement, and line 180 saves the 
image in the array BALL. Line 200 GETs a blank area of 
the same size, while lines 250 through 280 create the 
impression of movement by drawing, erasing, moving, 
and redrawing the ball across the screen. 


Listing 10-2. PUT Statement with PSET Option. 


108 REM Demonstrate animation using the PUT statement with 
116 REM the PSET option to repeatedly draw and erase. 
120 SCREEN 1,@:COLOR 0,1:KEY OFF:CLS ‘Set med-res screen 
130 REM Draw a concentric colored ball 

148 CIRCLE(12,12),8,3:PAINT STEP(9,9%),1,3 

15@ CIRCLE(12,12),6,3:PAINT STEP(9,9),2,3 

16@ CIRCLE(12,12),2,3:PAINT STEP(9,9),3,3 

17 REM Save the image of the ball 

188 DIM BALL(144):GET (@,8)-(23,23),BALL 

199 REM Save a black area the size of the saved ball image 
288 DIM BLANK(144):GET (58,59)-(73, 73), BLANK 

219 REM Clear the ball off the screen 

228 CLS 

238 REM Repeatedly erase and draw ball at slightly changed 
24G REM positions to create the illusion of motion 

258 FOR X=8 TO 288 STEP 2 

266 PUT (X—2,6@),BLANK,PSET:PUT (X,6@),BALL, PSET 

276 FOR I=1 TO 30:NEXT I ‘Wait to minimize flicker 
280 NEXT X 

296 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 

302 AS=INKEYS:IF AS=""" THEN 300 ELSE CLS 

319 END 


Animation is the basis for all video games. Arcade 
games and some computers use specialized hardware to 
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produce animation, but because the PC is a general-pur- 
pose computer, it has none of this equipment, so anima- 
tion must be produced by the software. In BASIC, we use 
the PUT statement to animate. 


Animating with XOR 


The XOR option is the simplest way to produce animation 
on a complex screen, and, indeed, eXclusive ORing is used 
in most games found on home computers. The great vir- 
tue of XOR is that it can be used to draw and then erase an 
image without changing the background, even if several 
images are moving past each other at the same time. By 
way of contrast, the PSET option always erases the back- 
ground of the PUT. 

When erasing and redrawing the image being animated, 
a distracting flicker can occur. One PUT erases the old 
image, and the next PUT draws the new image; during the 
interval between the two PUTs, there is no image on the 
screen, thus causing a flicker. The longer this interval, the 
worse the flicker, so the two PUT statements should, if 
possible, occur without intervening operations. 

When a figure created with the XOR option is drawn 
over another figure, some odd color effects may occur 
where the two images overlap. This effect is normal and 
disappears when the overlap ceases. As mentioned pre- 
viously, odd color effects can occur with all PUT options 
except PSET. 

The effects of the XOR option to the PUT statement in 
medium-resolution mode are shown in Table 10-1. 


Table 10-1. GET and PUT with XOR 


Background Color 
PUT Color @ 1 2 3 
4) a) 1 2 3 
1 1 7) 3 2 
2 2 3 4) 1 
3 3 2 1 a) 


The program shown in Listing 10-3 demonstrates ani- 
mation using PUT with the XOR option. Notice the color 
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interaction, the flicker of the moving ball, and the preser- 
vation of the background. The program pauses briefly 
after drawing each image so the image is on the screen 
longer than it is off. In this way, the flickering of the image 
is minimized. 


Listing 10-3. PUT Statement with XOR Option. 


108 REM Program to demonstrate animation with the 
118 REM XOR option to the PUT statement. 

120 REM Initialize screen 

138 SCREEN 1,8:COLOR 9,1:KEY OFF:CLS 

149 REM Draw a colored ball 

150 CIRCLE(12,12),8,3:PAINT STEP(9,8),1,3 

160 CIRCLE(12,12),6,3:PAINT STEP(9,9),2,3 

17@ CIRCLE(12,12),2,3:PAINT STEP(9,9),3,3 

188 REM Save the image of the ball 

198 DIM BALL(144) :GET(9,9)-(23,23) , BALL 

200 REM Clear the ball from the screen 

216 CLS 

228 REM Draw a series of colored stripes for ball 
230 REM to move across 

249 FOR I=4 TO 12 

250 LINE(1*20,58)-(1*28+19,100),I MOD 4,BF 

268 NEXT I 

276 REM Put the image on the screen in its first 
288 REM location so that the next PUT will 

299 REM erase it 

308 PUT(6,68) , BALL, PSET 

318 REM Repeatedly erase and then draw the ball 
326 REM moving it 2 pixels right each time 

338 FOR X=8 TO 288 STEP 2 

349 PUT(X-2,68) , BALL, XOR: PUT(X, 68) , BALL, XOR 
35@ REM Wait to minimize flicker 

368 FOR I=1 TO 38:NEXT I 

37 NEXT X 

380 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
399 AS=INKEYS:IF AS="" THEN 39% ELSE CLS 

490 END 


Animating with PSET 


When we produced animation earlier with the PSET 
option to the PUT statement, we PSET the image initially, 
PSET a blank area of equal size over the image to erase it, 
then redrew the image in a new location. This particular 
method is, in general, inferior to using the XOR option, 
but there is another, better way to use PSET for anima- 
tion. 
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To use PSET for animation, we must first GET an image 
with a border that is wider than the distance the image 
appears to jump each time it is moved, then PUT the 
image onto the screen with the PSET option. Each time 
the image is redrawn with the PSET option, the blank bor- 
der will erase the previous image automatically. (Remem- 
ber that the image cannot move any farther than the 
width of the border in any single move.) There is never 
any separate operation to erase the image. Because an 
image is always on the screen, the animation produced is 
smooth and relatively flicker-free. Also, because there is 
only one PUT performed each time the image is moved, 
less time is used in drawing, and so the action can move 
faster. 

The program shown in Listing 10-4 demonstrates ani- 
mation with the PSET option. Type and run it, noting that 
the moving ball now flickers less than when it was ani- 
mated with the XOR option. 

You will also see that the PSET option does not preserve 
the images on the screen as it passes over them. The back- 
ground can be restored with appropriate redrawing in the 
wake of the moving object, but this is difficult to do. The 
XOR option, on the other hand, does not require redraw- 
ing the background. If there is no background landscape, 
the PSET option works well; if there is a landscape, the 
PSET option can cause more problems than it is worth. 
Care must also be taken that the blank border of the image 
does not go off the screen, as this will cause an error even 
though the figure appears to be fully on the screen. 

Selecting between the XOR and PSET options to the 
PUT statement depends on the complexity of the anima- 
tion task. In general, the XOR option is simpler and more 
widely used. 


FUN AND GAMES 


If you plan to write your own video games, study this 
chapter carefully, not only for the BASIC statements, PUT 
and GET, but for the basic principles of animation. Under- 
standing the concept of the eXclusive OR (XOR) method of 


111 


Graphics for the IBM PC 


Listing 10-4. PUT Statement with PSET Option and 
Border. 


1@8 REM Program to demonstrate animation using the PUT 
118 REM = statement with the PSET option and a border 
126 REM around the image to erase the old image. 
138 REM Initialize the screen 

148 SCREEN 1,8:COLOR 9,1:KEY OFF:CLS 

158 REM Draw a ball 

168 CIRCLE(12,12),8,3:PAINT STEP(9,9),1,3 

176 CIRCLE(12,12),6,3:PAINT STEP(9,@),2,3 

188 CIRCLE(12,12),2,3:PAINT STEP(,9),3,3 

198 REM Save the image of the ball and some of 
208 REM the black border 

219 DIM BALL (144) :GET(9,9)-(23, 23) , BALL 

228 CLS "Remove ball from screen 

238 REM Draw a series of colored bars for ball to 
249 REM move across 

258 FOR I=4 TO 12 

268 LINE(1*20,50)-(1*2G+19,1@0),I MOD 4,BF 

278 NEXT I 

288 REM Repeatedly move the ball right by 2 pixel 
298 REM postions allowing the black border to 
308 REM wipe out the part of the old ball image 
318 REM not covered by the new image 

328 FOR X=8 TO 288 STEP 2 

338  PUT(X,69),BALL,PSET 

349 FOR I=1 TO 30:NEXT I "Delay a bit 

358 NEXT X 

362 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
37G AS=INKEY$:IF A$="" THEN 370 ELSE CLS 

388 END 


animation is particularly important. Take time now to 
review the material on animation before proceeding to the 
next chapter, in which we design a complete video game. 
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BLOCKBUSTER—AN ARCADE- 
STYLE GAME 


You have now learned enough of the graphics elements of 
the BASIC language to draw forms of various shapes, sizes 
and colors, and to do so at high speed. In short, you are 
ready to design and program an arcade-style game. 
Thanks to the graphics capabilities of IBM BASIC, you’ll 
find our Blockbuster game surprisingly compact and easy 
to implement. 

Up to now, we have presented sample programs as fin- 
ished products, because we have been concentrating on 
individual commands. In this chapter, you will begin to 
learn how to assemble the commands into a program 
designed to perform a specific task. Therefore, we will take 
you through the complete design process of Blockbuster, 
from conception to completion. Fig. 10 in the color photo- 
graph section shows the finished product that is our goal. 


GAME DESIGN 


The most important part of producing a game is creating a 
good design for it. The key to game design is to realize that 
while there are general guidelines to good design, there are 
no “cookbook”’ rules. In other words, no one can put a 
series of steps down on paper that, if followed correctly, 
will yield a functioning game, let alone an enjoyable one. 
Each game is an individual work, not unlike a novel or 
movie. The author’s imagination is the critical element. 
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What we will do here is take you through the step-by-step 
construction of a game, outlining a general approach to 
help you to avoid frustrating dead ends, bugs, and non- 
functional programs. 

As programs grow more complex, it becomes impossible 
to program ‘‘on the fly,”’ simply writing code until the pro- 
gram is done. The ‘“‘top-down’”’ design we use ensures that 
each section of the program works well with the rest. A 
good design creates a logically composed program which, 
in turn, makes programming, debugging, and later addi- 
tions and changes much easier. 

The first step in the game design process is to describe 
the game in English. It can be useful to sit down with a 
pencil and paper and write a synopsis of the game. Then 
make an outline detailing how the program will accom- 
plish each element of the game. Before writing a single line 
in BASIC, you should determine specifications for the 
playing field and moving objects, and decide how to han- 
dle the interactions among all components of the game. 
Once these decisions are made, the program can be writ- 
ten easily from the specifications, without any need to 
worry about overall program logic. 


BLOCKBUSTER 


The game we will design is called Blockbuster. It is a 
‘“‘pong”’-type game in which a “‘ball’”’ directed by a player- 
controlled paddle bounces around a playing field and into 
a wall of ‘‘bricks.’’ Each time the ball hits a brick, that 
brick vanishes. The game ends when the player clears the 
field of bricks or runs out of balls. 

We have just completed our synopsis of Blockbuster. 
There are five sections of the program to be designed 
before the game can be programmed. These are the play- 
ing field, the bricks, the paddle, the ball, and housekeep- 
ing (referring to the section that begins, runs and ends a 
program ‘‘neatly.’’) 


The Playing Field 


The playing field is closed on all four sides, but the side 
located at the bottom of the screen functions as an essen- 
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tially open side in that, when the ball reaches this area, it 
is deemed to be out of play and thus lost. The paddle is on 
this open side. Putting the paddle at the bottom creates 
the illusion of gravity, because the ball will appear to be 
falling toward earth as the player hurries to intercept its 
path. Certainly the game would not seem as real if the 
paddle were at the top and the ball appeared to fall 
upward! 

The playing field is nearly square at 166 rows by 162 
columns (all coordinates are measured in pixels). Here we 
have our first encounter with the inexact nature of game 
design. There is nothing sacred about the dimensions 
we've selected, and any number of other dimensions 
would serve as well. A number of factors go into such a 
decision, including screen size, brick size, number of 
bricks, ball speed, and general playability of the game. We 
have selected our size as reasonable and workable, but, 
often in the game design process, there are several itera- 
tions of the design process as the design closes in on one 
that the designer ‘‘feels’” is right (there being no one 
“right” design). If you wish to experiment with the play- 
ing field size (or, indeed, any aspect of the game) please do, 
but remember that you must consider the effects on other 
interacting parts of the game. This is why design is best 
done before the programming phase; imagine program- 
ming the playing field size, only to arrive at the program 
section that draws the bricks and discover the bricks will 
not work with the playing field you’ve created! 

The playing field is black, as that is the easiest back- 
ground color on which to follow the action. The area sur- 
rounding the playing field is red. 

Color selection for graphics is always a problem on the 
PC, because in medium-resolution graphics mode, we only 
have four of the sixteen colors available, and then only the 
colors in one of the two palettes. We have already decided 
that we will use black, and because black is not in either of 
the palettes, it must be the background color. Now we 
must select our palette. As discussed in Chapter 3, palette 
O, with red, green, and brown, is vivid on a high-quality 
monitor, but all three colors look brownish on a tv screen. 
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Palette 1 has magenta, white, and cyan, which are less 
striking but look acceptable on all screens. 

The nature of Blockbuster is such that either palette is 
fine; we will use palette 1 because it produces a good dis- 
play on any screen. In this case, the game did not dictate 
the colors, but this is not so in many cases. For example, a 
game program which used trees and other plants in the 
background would certainly require green to represent 
foliage, so palette @ would be preferable. 

We will use color 2, magenta, for the area surrounding 
the playing field, because this is an attractive but rela- 
tively subdued color. By contrast, white would not be a 
good choice for the border, as it would distract from the 
game and tire players’ eyes. Note that magenta (which is a 
light red) may appear as any color from pink to deep red 
on various displays. 


The Bricks 


Once the playing field is set, the bricks can be drawn on it. 
There are four rows of eight bricks each, arrayed about 
two-thirds of the way to the top of the playing field. Each 
brick is 9 rows by 19 columns in dimension. 

Again, there are no rules regarding placement and siz- 
ing. The usual approach is to use graph paper, a pencil, 
and a large eraser to experiment, considering the size of 
the playing field and the nature of the game as well as the 
bricks themselves. (All the dimensions of the game are 
usually determined during one trial-and-error process. 
When various objects interact, none of them can be 
designed in isolation, so one may go through several tenta- 
tive sizings before arriving at the final dimensions.) 

The upper edge of the top row of bricks begins at row 
48, as counted from the top of the screen. Each brick is 3 
rows below the brick above and 1 column from each brick 
to the side. The bricks are alternating cyan and magenta. 


The Paddle 


The paddle is a horizontal white line 21 columns wide, set 
on row 181 of the screen. The paddle’s range of movement 
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is the full width of the playing field, from columns 80 to 
241. 

Though a joystick is an ideal paddle controller, not all 
PC owners have joysticks. Therefore, Blockbuster uses the 
keyboard to control the paddle, even though joystick con- 
trol would be easier. 

One possible method of keyboard control involves mov- 
ing the paddle one unit each time a certain key is pressed. 
With this method approximately 25 keystrokes are 
required to move the paddle across the screen. Because 
the PC keyboard doesn’t repeat a given key immediately 
(i.e., continually send the same key value when that key is 
held down), this method would force the player to 
“whack” the keyboard with alarming frequency. 

A better approach to keyboard-controlled movement is 
to use a specific key press to start the paddle moving and a 
second key to stop the paddle movement. (The paddle 
would stop moving when it appears to touch the edge of 
the playing field as well.) In Blockbuster, the z key starts 
the paddle moving left, the x key stops movement, and the 
c key starts the paddle moving right. (All these keys are 
lowercase.) Notice that these keys are grouped together so 
the left hand can conveniently control the paddle. Of 
course, you may select different keys. 

It would be a nice touch if we could handle both upper- 
case and lowercase characters, so the shift state would be 
irrelevant. What would be even better would be a message 
that briefly halted play and informed the player if the key 
struck was not a valid key. This would, however, require 
that the IF statement that interprets keystrokes be longer 
and slower, so we elected to implement neither of these 
features. 


The Ball 


Handling the ball is the most complex portion of the pro- 
gram, because the ball moves in two dimensions and 
interacts with each of the elements previously discussed. 
The ball is a solid circle of radius 2, starting in the middle 
left of the screen below the bricks and aimed directly at 
the paddle. This makes the game easier to play—if a 
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player is confused or unprepared, the ball won’t be lost 
immediately. Also, when the ball bounces off the paddle at 
the start of the game, the basic idea of the game becomes 
readily apparent to the novice. 

To create the impression that the ball is moving, the pro- 
gram erases the ball at its current location, adds to the 
ball’s coordinates an increment in each of the x and y 
directions (x being horizontal and y, vertical), and then 
redraws the ball in the new location. (At this point, you 
may wish to review the discussion of animation in Chapter 
10.) The x and y increments fully describe the motion of 
the ball, and each can be either positive or negative to 
describe movement in all directions. A positive x will 
cause the ball to move right and a positive y will cause the 
ball to move “down,”’ with negative values causing the 
opposite motions. 

To determine if the ball has struck any of the edges of 
the playing field, we compare coordinates. If the ball is at 
column 80, for example, and the computer tries to move 
the ball to the left (by addition of a negative x increment), 
it has hit the left edge. In this case, the x increment must 
be negated (multiplied by —1) to reverse motion away 
from the left wall. 

We similarly compare coordinates to check whether the 
ball has hit the paddle or gone off the bottom of the screen. 
If the ball reaches the paddle row, it either hits the paddle 
or misses the paddle and is “‘lost.” 

If the ball “‘hits’’ the paddle, the y increment is reversed 
to move the ball back up, and the x increment is set to a 
value that varies according to how close to the center of 
the paddle the ball strikes. 

Why not simply leave the x increment the same, so the 
ball “‘flies off’ at the same angle that it approached? Vary- 
ing the path of the ball as it bounces off the paddle makes 
the game more varied and interesting. This also creates 
the impression that the ball and paddle are real objects; in 
reality, balls bounce with spin and at many angles, so it is 
desirable to create the illusion that this is happening in 
our game. Details such as this make the game feel “‘right”’ 
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to players, even though they may not know why they have 
that feeling. 

If the ball reaches the paddle row and does not strike the 
paddle, it is “‘lost’’: The ball is erased, then restarted as it 
was at the beginning of the game. The task of counting 
lost balls is handled in the housekeeping section. 

The program checks the screen to see if the ball has hit a 
brick. If the ball hasn’t hit the edge of the playing field or 
the paddle, and if the pixel located where the center of the 
ball is about to move is not black (the background color), 
then the ball must have encountered a brick. Disposing of 
the brick is simple; PAINT it off the screen, starting at the 
point just checked. 

In considering the ball’s motion and the collision 
checks, it is important to understand the nature of pro- 
gram execution. While you, the game designer, are trying 
to create the impression of continuous action, you are 
dealing with discrete, sequential events, because BASIC 
commands can only do one thing at a time. Hence, in 
Blockbuster, you know that any point not black must be a 
brick only because you have already eliminated the possi- 
bility that the point is the edge of the playing field or the 
paddle. If the order of checks is changed, the program will 
not work. Similarly, you must PAINT off the brick after 
the ball is taken off the screen at the old location and 
before it is drawn at the new, or you will PAINT the ball off 
the screen as well. 

The discrete nature of video game programming is one 
reason for doing extensive game design before program- 
ming; events must occur in sequence so they interact 
properly and without interference. It’s impossible to repli- 
cate real-world action perfectly, but good design produces 
good illusion. Fortunately, fast action and the impression- 
able eye often cover for a good deal of imprecision. 


Housekeeping 


Most games have a beginning, an end, and a scoring 
method. In Blockbuster, the score is the number of bricks 
remaining, and the end comes either when three balls are 
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lost or when all the bricks are gone. In the former case, 
players lose; in the latter, they win. In both cases, the 
player is notified. 

The beginning of Blockbuster consists of initializing and 
drawing the playing field, bricks, paddle, and ball, with 
the ball’s motion increments set for movement toward the 
paddle. Note that parts of housekeeping have been dis- 
cussed in other sections. This is because the other sections 
would not function without these elements. For example, 
the ball section could not be tested if the ball were not 
given an initial location. We need to be able to properly 
test each section before proceeding to the next. 

Finally, housekeeping includes counting the balls lost 
and bricks hit, so the progress of the game can be moni- 
tored. This information is displayed at the top of the 
screen, away from the playing field area. 

This completes the specification of Blockbuster; at this 
point we can proceed to programming the game in BASIC. 


PROGRAMMING THE GAME 


Now that Blockbuster is designed, we could sit down with 
the specifications and start writing, but it is more produc- 
tive to program in modules (i.e., to write each section in 
turn, thoroughly testing and debugging it before proceed- 
ing to the next section). This is especially important with 
large programs. Modular programming is easier to do with 
compiled languages or in Assembly language, where each 
module can be physically separated from the rest in the 
program, but it can be applied to interpreted BASIC as 
well. 

Blockbuster is programmed in five steps, with a pause 
after each step to test our progress to that stage. These five 
steps correspond to the five sections of the program: play- 
ing field, bricks, paddle, ball, and housekeeping. 

Before starting, note that the program listings shown 
seem to have gaps in the line numbering. For example, the 
line numbers in Listing 11-2 run 100, 130, 140, skipping 
110 and 120. The missing line numbers are reserved for 
lines dealing with later steps, such as housekeeping. We 
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reserve these lines for explanatory purposes only. You 
need not leave reserved lines in your own programs, for 
the operation of the program does not require regular 
numbering; besides, any irregular line numbering can be 
corrected easily with the RENUM statement. 

Also note that there are often many statements on one 
line, which can make the program difficult to read. As an 
interpreted language, BASIC is not particularly fast, and 
speed is an important consideration in program design. 
Statements run faster if they’re on the same line, so we 
use multistatement lines strictly due to speed considera- 
tions. Similarly, there are no comments in the listings 
because BASIC wastes a surprising amount of time when 
it encounters REM statements and single-quote com- 
ments. In general, though, inserting comments is a desir- 
able programming practice, and we include a listing of 
Blockbuster with complete comments at the end of this 
section. 

A final point: as described earlier, we format the pro- 
gram listings with wrap occurring between words on long 
lines. This makes the listings more legible. Do not try to 
wrap your lines at the same place we did in this chapter. 
Several lines as shown are too long for BASIC, and will not 
work properly. Instead, enter all lines by typing the com- 
mands without regard for where the wrap occurs. 


Programming the Playing Field 


The program shown in Listing 11-1 sets up the playing 
field. Line 100 clears the screen and selects medium-reso- 
lution color graphics mode, with palette 1 on a black back- 
ground. The DEFINT statement makes all variables inte- 
gers, unless otherwise specified. (We will not specify other- 
wise.) This is important in programming games because 
BASIC variables normally default to real numbers, which 
are processed much more slowly than integers, particu- 
larly where arithmetic operations are concerned. The first 
LINE statement on line 130 colors the entire screen 
magenta, while the second LINE statement makes the 
playing field area black. Type and run the program to see 
the constructed playing field. 
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Listing 1-1. Blockbuster—Playing Field. 


19 REM Blockbuster-—-playfield. 
196 DEFINT A-Z:SCREEN 1,8:COLOR @,1:KEY OFF:CLS 
138 LINE(@,%)-(319,199),2,BF:LINE(89,20)-(241,185),8,BF 


Programming the Bricks 


Listing 11-2 adds the bricks to the playing field. In line 
140 the outer FOR . . . NEXT loop with the I variable 
runs through the eight columns of bricks, and the inner 
FOR... . NEXT loop with the J variable runs through the 
four rows of bricks. The heart of line 140 is the LINE state- 
ment which draws a solid brick. The coordinates of the 
upper-left corner of each brick are calculated as an offset 
from the upper left brick located at coordinates (82,48). 
Each column is 20 dots wide, so the x coordinate of any 
brick is 82+1*2@, where I is the column number of the 
brick. Likewise, each row is 12 dots high, so the y coordi- 
nate of any brick is 48+J*12, where J is the row number 
of the brick. 

For each brick, the rectangle drawn with the LINE state- 
ment is 19 columns by 9 rows and is created using STEP 
relative to the upper-left corner of the brick. (Note that this 
is an excellent example of the usefulness of relative 
addressing.) 

The bricks are filled in with either cyan or magenta in 
alternating columns and rows to produce a checkerboard 
pattern. The MOD function is used to generate the values 
of the color parameter that color the bricks appropriately. 
The MOD function returns the remainder of the division of 
one number by another, so that the formula (I+J) MOD 2 
returns a value of @ if (I+J) is even, and a value of 1 if (I+J) 
is odd. Because cyan and magenta are colors 1 and 2, we 
add 1 to the value of (I+J) MOD 2. Therefore a MOD 2 
value of @ produces cyan and a MOD 2 value of 1 produces 
magenta. This formula creates the desired checkerboard 
pattern of brick coloring. 

Run the program in Listing 11-2. Notice that it simply 
adds line 140 to the program in Listing 11-1. 
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Listing 11-2. Blockbuster—Bricks. 


18 REM Blockbuster--playfield and bricks. 

100 DEFINT A-Z:SCREEN 1,9:COLOR O,1:KEY OFF:CLS 

138 LINE(@,9)-(319,199),2,BF:LINE(8,20)—-(241,185),0,BF 

140 FOR I=@ TO 7:FOR J=@ TO 3:LINE(82+20*1,484J*12)- 
STEP(18,8),((I+J) MOD 2)+1,BF:NEXT J:NEXT I 


Programming the Paddle 


Now comes the action. The program in Listing 11-3 initial- 
izes the paddle so the player can move it back and forth. 
The program also sets up the playing field and the bricks, 
as shown previously. 

Line 160 initializes the paddle’s x coordinate which is 
stored in the variable PX. The paddle’s y coordinate never 
changes, so the constant 181 is used throughout the pro- 
gram. 

Lines 190, 200, and 210 control paddle movements. 
Line 190 uses INKEY$ to get keyboard input, if any, with- 
out disturbing the display. (Keystrokes obtained with 
INKEY$ are not shown on the screen.) If there is no input, 
INKEY$ returns an empty string and nothing is done. If 
the input is one of the three movement keys: z, x, or c 
(remember, the keys must be lowercase), action is taken. 
The action is to set the variable PXINC (the distance by 
which the paddle moves each time through the loop) to —5 
to move left, O to stop, or 5 to move right. Moving the pad- 
dle fewer than five dots at a time produces too-slow 
motion, while moving it more than five dots produces 
jerky motion that is visually distracting and is difficult for 
the player to control. 

Line 200 guards against movement of the paddle off the 
edge of the playing field. Here the current paddle location 
is saved in OLDPX; the paddle is then tentatively moved 
by adding the paddle movement increment PXINC to the 
current paddle x coordinate, PX. If the result of the trial 
move is off either edge, the paddle’s x coordinate is set 
back to the old location and no move takes place; other- 
wise PX is left at the new value and the new location is set. 

Line 210 moves the paddle. (If PX equals OLDPX, either 
because PXINC is @ or because the playing field edge has 


123 


Graphics for the IBM PC 


been reached, no move occurs. Instead, the paddle is 
erased and drawn again in precisely the same spot. In this 
way, the paddle drawing always takes the same amount of 
time, so the game runs at the same speed whether the 
paddle is moving or not.) The first LINE statement in line 
210 uses OLDPX to erase the paddle at its old location, 
and the second LINE statement uses PX to draw the pad- 
dle at its new location. 

The lines we’ve discussed so far move the paddle once. 
To handle the paddle properly we need a loop that repeat- 
edly executes the paddle movement commands. Line 270 
performs this looping function. The beginning of the loop 
must be selected carefully. If line 160 were inside the loop, 
the paddle would constantly be returned to its initial posi- 
tion. On the other hand, lines 190, 200, and 210, which 
are the paddle movement commands, must be inside the 
loop or the paddle would never move. In fact, we loop back 
to line 190. 

Run the program shown in Listing 11-3. Notice that the 
paddle moves rapidly. This is to be expected, because the 
lines dealing with the ball’s movement are not being exe- 
cuted yet. These lines slow the action down considerably. 
There isn’t any way to terminate the program yet, so use 
Ctrl-Break to stop when you’ve seen enough. 


Listing 11-3. Blockbuster—Paddle. 


1@ REM Blockbuster—-playfield, bricks, and paddle. 

1@@ DEFINT A-Z:SCREEN 1,@:COLOR 9,1:KEY OFF:CLS 

138 LINE(,@)-(319,199),2,BF:LINE(89, 20)-(241,185) ,9,BF 

149 FOR I=@ TO 7:FOR J=@ TO 3:LINE(82+20*1,48hJ*12) 
-STEP(18,8),((I+J) MOD 2)+1,BF:NEXT J:NEXT I 

16@ PX=150:PXINC=G 

199 AS=INKEYS:IF AS="c" THEN PXINC=5 ELSE IF AS="z" THEN 
PXINC=-5 ELSE IF AS="x" THEN PXINC=@ 

200 OLDPX=PX:PX=PX+PXINC:IF PX<88 OR PX>221 THEN PX=OLDPX 

210 LINE(OLDPX, 181)-(OLDPX+29,181),@: 
LINE(PX, 181)-(PX+20,181) , 3:OLDPX=PX 

276 GOTO 196 


Programming the Ball 


The program in Listing 11-4 adds the ball to what we’ve 
already created. To do this, we must draw and initialize 
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the ball, check for collisions with the edges, paddles, and 
bricks, and then move and redraw the ball. 

The ball must first be drawn and saved for future use. 
Line 110 creates a solid white circle of radius 2, and line 
120 uses the graphics GET statement to save the image of 
the ball into the array variable BALL. 

Line 180 sets the ball’s coordinates (BX and BY) and 
motion (BXINC and BYINC). BX and BY are set to start the 
ball on the left side of the playing field below the bricks. 
BXINC and BYINC are set initially to move the ball down 
and to the right to intersect the paddle’s starting position. 
The graphics PUT statement at the end of line 180 draws 
the image of the ball at its starting spot. (Remember that 
the PUT statement is a rapid way to draw an image pre- 
viously saved with a GET statement.) 

Line 220 moves the ball horizontally and checks 
whether it has collided with either the left or right side of 
the playing field. The current location is stored in OLDBX 
for later reference. BXINC (the horizontal motion), is then 
added to the current x coordinate. If this new location is 
off either edge, the horizontal motion variable BXINC is 
negated (multiplied by —1), thus reversing the ball’s direc- 
tion, and twice the new motion is added to the x coordi- 
nate. This doubled motion both cancels the trial move 
made at the beginning of line 220 and moves the ball one 
“normal’’ distance in the new direction. The end result of 
line 220 is that the ball’s x coordinate is altered by the 
motion stored in BXINC. 

When collision checks are made, remember that BX and 
BY are the coordinates of the upper-left corner of the ball. 
Because the ball is five dots wide, its right edge is at 
BX +4. Likewise, the right edge of the paddle is at PX +20. 

Line 230 is similar to line 220, but it handles vertical 
rather than horizontal motion. Only collision with the top 
edge of the playing field is checked, because the bottom 
edge and the paddle are checked for as a special case. If 
the ball has reached the top of the playing field, BYINC 
(the y motion) is reversed in the same manner as is BKINC 
in line 220. 

Line 240 checks whether the ball has arrived at the bot- 
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tom edge of the playing field, which is the paddle row. If 
the ball hasn’t reached the paddle row, no check is neces- 
sary. If the ball has reached the paddle row, it has either 
struck the paddle and bounced or missed the paddle and 
gone off the screen. If the ball hits the paddle, the ball’s 
vertical motion (BYINC) is reversed just as when the ball 
strikes the top edge of the playing field. The horizontal 
motion is also set but is set to a greater motion the farther 
from the center of the paddle the ball hits, thereby created 
the impression of spin. The last statement on line 240 sets 
this variable horizontal motion. 

If the ball misses the paddle, it is “erased” from the 
screen and restarted. This is done on line 290. Note that 
line 170 (where the ball is restarted after being lost) is a 
REM statement. This line, like line 280, is used in the 
housekeeping section, and the REM statement is merely a 
placekeeper for now, allowing us to refer to line 170 in line 
290. 

If the ball hasn’t gone off the bottom edge of the screen, it 
must be erased so that it can be moved. Line 250 erases the 
ball from its old location by eXclusive ORing it off the 
screen. Line 250 then uses the POINT function to see 
whether there is anything on the screen where the center of 
the ball in its new location is to go. We have already 
checked whether the ball has hit the edge of the playing 
field or the paddle and moved it away if it has, and we have 
erased the ball temporarily. Therefore, if the POINT func- 
tion reveals any color but black, the background color, then 
the ball must be hitting a brick. Because the brick is sur- 
rounded by black, it is simple to PAINT it black and thus 
erase it. The ball then reverses vertical direction as if it had 
struck the top or bottom edge of the screen, so that the 
brick seems to vanish and the ball to rebound from the col- 
lision. 

On line 260 the ball is redrawn in its new location. Note 
that if the ball were not erased before the collision check, 
or if it were redrawn before the check, the entire brick col- 
lision sequence would not work, because the PAINT would 
erase the ball as well as the brick, and then the PUT state- 
ment with the XOR option would not function properly. 
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Finally, the program loops to line 190 to execute again 
the whole sequence of ball and paddle movements. 

When you run the program in Listing 11-4, remember 
that it can only be terminated with Crtl-Break. 


Listing 11-4. Blockbuster—Ball. 


10 REM Blockbuster--playfield, bricks, paddle, and ball. 

100 DEFINT A-Z:SCREEN 1,@:COLOR @,1:KEY OFF:CLS 

118 CIRCLE(3,3),2,3:PAINT STEP(G,@),3 

126 DIM BALL(19) :GET(@,98)-(5,5),BALL 

138 LINE(9,@)-(319,199),2,BF:LINE(8Q, 20)-(241,185),@,BF 

149 FOR I=@ TO 7:FOR J=@ TO 3:LINE(82+20*I,48hJ*12) 
-STEP(18,8),((I+J) MOD 2)+1,BF:NEXT J:NEXT I 

160 PX=159:PXINC=0 

17@ REM *placekeeping line* 

189 BX=89:BY=109: BXKINC=4 : BYINC=4: PUT(BX, BY) , BALL 

198 AS=INKEYS:IF AS="c" THEN PXINC=5 ELSE IF AS="z"" THEN 
PXINC=-5 ELSE IF AS="x" THEN PXINC=@ 

206 OLDPX=PX: PX=PX+PXINC: IF PX<89 OR PX>221 THEN PX=OLDPX 

210 LINE(OLDPX, 181)-(OLDPX+28,181),@: 
LINE(PX, 181)—(PX+28,181) , 3:OLDPX=PxX 

229 OLDBX=BX:BX=BX+BXINC: IF BX<8Q OR BX>234 THEN 
BXINC=-BXINC : BX=BX+2*BXINC 

238 OLDBY=BY:BY=BY+BYINC: IF BY<24 THEN BYINC=-BYINC: 
BY=BY+2*BYINC 

249 IF BY>175 THEN IF BX<PX-5 OR BX>PX+29 THEN 280 ELSE 
BYINC=-BYINC : BY=BY+2*BYINC: BXINC=(BX-PX) \2-4 

258 PUT(OLDBX,OLDBY) , BALL: IF POINT (BX+2, BY+2)=@ THEN GOTO 
260 ELSE PAINT(BX+2, BY+2) , @:BYINC=-BYINC: BY=BY+2*BYINC 

268 PUT(BX, BY), BALL 

276 GOTO 198 

289 REM *placekeeping line* 

298 PUT(OLDBX, OLDBY) ,BALL:GOTO 179 


Programming the Housekeeping 


Only a few details remain before Blockbuster is a working 
game, as shown in Listing 11-5. The program must check 
to see if any bricks remain and count the balls as they’re 
lost. Line 150 sets the initial number of balls and bricks. 
Line 280 reduces the number of balls after each ball is lost 
and then loops to 170, which indicates on the screen how 
many balls remain and terminates the game with the mes- 


On line 250 the number of bricks is reduced each time a 
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brick is hit. Each time a brick is hit, line 250 also indicates 
on the screen how many bricks remain. If none remain, 


The program in Listing 11-5 is Blockbuster in its 
entirety. Run the program, then review the listing and try 
to relate each line to what you see as you play. You might 
also find it worthwhile to follow the program through a 
few loops by modifying the code to print variables such as 
BXINC, BYINC, BX, and BY on an unused portion of the 
screen or on your printer as the game is playing. 


Listing 11-5. Blockbuster—Finished Version. 


1@ REM Blockbuster--finished version. 

1@8 DEFINT A-Z:SCREEN 1,9:COLOR 9,1:KEY OFF:CLS 

11@ CIRCLE(3,3),2,3:PAINT STEP(@,9),3 

128 DIM BALL(1@) :GET(@,@)-(5,5),BALL 

130 LINE(9,9)-(319,199),2,BF:LINE(80, 20)-(241,185),9,BF 

149 FOR I=@ TO 7:FOR J=@ TO 3:LINE(82+20*1I,48+J*12) 
-STEP(18,8),((I+J) MOD 2)+1,BF:NEXT J:NEXT I 

158 NBALLS=3 :NBRKS=32 

16 PX=15@:PXINC=S 

176 LOCATE 2,2:PRINT "Balls left ";NBALLS:IF NBALLS=0 THEN 
LOCATE 15,13:PRINT "YOU LOSTI!111":GOTO 320 

188 BX=80:BY=100:BXINC=4 : BYINC=4 : PUT (BX, BY) , BALL 

198 AS=INKEYS:IF AS="c" THEN PXINC=5 ELSE IF AS$="z" THEN 
PXINC=-5 ELSE IF AS="x" THEN PXINC=@ 

280 OLDPX=PX:PX=PX+PXINC:IF PX<8Q OR PX>221 THEN PX=OLDPX 

218 LINE(OLDPX, 181)-(OLDPX+29,181) ,@: 
LINE(PX, 181)-(PX+2@, 181) , 3: OLDPX=PX 

226 OLDBX=BX:BX=BX+BXINC:IF BX<88 OR BX>234 THEN 
BXINC=-BXINC: BX=BX+2*BXINC 

238 OLDBY=BY:BY=BY+BYINC:IF BY<24 THEN BYINC=-BYINC: 
BY=BY+2*BYINC 

249 IF BY>175 THEN IF BX<PX-5 OR BX>PX+2Q THEN 280 ELSE 
BYINC=-BYINC: BY=BY+2*BYINC: BXINC=(BX-PX) \2-4 

259 PUT(OLDBX, OLDBY) ,BALL:IF POINT(BX+2,BY+2)=0 THEN GOTO 269 
ELSE PAINT (BX+2,BY+2) ,@:BYINC=-BYINC: BY=BY+2*BYINC: 
NBRKS=NBRKS-1:LOCATE 2,20:PRINT "Bricks left";NBRKS: 
IF NBRKS=0 THEN LOCATE 15,13:PRINT "YOU WONI111":GOTO 399 

269 PUT(BX, BY), BALL 

27@ GOTO 198 

280 NBALLS=NBALLS-1 

298 PUT(OLDBX, OLDBY) , BALL:GOTO 179 

3@G LOCATE 25,9:PRINT "PRESS ANY KEY TO CONTINUE"; 

310 AS=INKEYS$:IF AS="" THEN 318 ELSE CLS 

328 END 
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THE BALL’S IN YOUR COURT 


And that’s all there is to programming a video game! 
Blockbuster isn’t as polished as it might be; we left many 
rough edges for you to smooth out. The best way to 
acquire game-making skills is to experiment with the pro- 
gram and redesign the game. In this, the version of the 
game with comments, shown in Listing 11-6, will be of 
use. 


Listing 11-6. Blockbuster—Finished, Commented 
Version. 


1@ REM Blockbuster——a pong-type video game--complete, commented 
version. 

100 DEFINT A-Z:SCREEN 1,8:COLOR @,1:KEY OFF:CLS 

185 REM Draw the ball and fill it in 

119 CIRCLE(3,3),2,3:PAINT STEP(Z,@),3 

115 REM Save the ball in array called BALL 

128 DIM BALL(1@) :GET(@,@)-(5,5),BALL 

125 REM Draw the playfield 

138 LINE(9,9)-(319,199),2,BF:LINE(8@,20)-(241,185),0,BF 

135 REM Draw the bricks in the playfield 

148 FOR I=@ TO 7:FOR J=@ TO 3: LINE (82+29*1, 48+7*12)— 
STEP(18,8),((I+J) MOD 2)+1,BF:NEXT J:NEXT I 

145 REM Initialize the number of balls and number of bricks 

158 NBALLS=3 : NBRKS=32 

155 REM Set initial paddle position and movement 

168 PX=150:PXINC=0 

165 REM Keep track of number of balls left, if none then end game 

176 LOCATE 2,2:PRINT "Balls left ";NBALLS:IF NBALLS=0 THEN 
LOCATE 15,13:PRINT "YOU LOSTI!!1!":GoTo 3090 

175 REM Start new ball and direction 

189 BX=80:BY=10@: BXINC=4 : BYINC=4 ; PUT (BX, BY) , BALL 

185 REM Set paddle direction according to what key is pressed 

199 AS=INKEY$:IF AS="c" THEN PXINC=5 ELSE IF AS="z" THEN 
PXINC=-5 ELSE IF AS="x" THEN PXINC=@ 

195 REM Find new paddle location--do not let it go off playing 
field 

298 OLDPX=PX:PX=PX+PXINC: IF PX<88 OR PX>221 THEN PX=OLDPX 

202 REM Draw the paddle at its new location which then 
becomes the 

284 REM old location 

21@ LINE(OLDPX, 181)-(OLDPX+28,181),@: 
LINE(PX, 181)-(PX+28,181) , 3: OLDPX=PX 

215 REM Find new horizontal ball location—if it would hit a wall 
then go in other direction 

228 OLDBX=BX:BX=BX+BXINC:IF BX<88 OR BX>234 THEN 
BXINC=—BXINC : BX=BX+2*BXINC 

225 REM Find new vertical ball location--if it hits the top then 
go down 
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Listing 11-6—cont. Blockbuster—Finished, 
Commented Version. 


238 OLDBY=BY:BY=BY+BYINC:IF BY<24 THEN BYINC=-BYINC: BY=BY+2*BYINC 

232 REM If ball is at paddle row and missed the paddle then goto 
line 289 

234 REM If ball is at paddle line and hit the paddle then set 
ball to go up 

236 REM and set the horizontal movement according to where the 
paddle was 

238 REM hit 

248 IF BY>175 THEN IF BX<PX-5 OR BX>PX+20 THEN 280 ELSE 
BYINC=-BYINC: BY=BY+2*BYINC: BXINC=(BX-PX) \2—4 

242 REM Erase the ball, restoring the background. If the dot at 


the center 

244 REM of where the ball is to be put next is black then 
goto 269. If 

246 REM not, then a brick has been hit, so erase the brick by 
PAINTing it 

248 REM the background color, then reverse the direction of the 
ball and 

249 REM reduce the brick count by one. If no bricks left, you 
wonll! 


258 PUT(OLDBX, OLDBY),BALL:IF POINT(BX+2,BY+2)=@ THEN GOTO 269 
ELSE PAINT (BX+2,BY+2) ,@:BYINC=-BYINC: BY=BY+2*BYINC: 
NBRKS=NBRKS-1:LOCATE 2,28:PRINT "Bricks left";NBRKS: 

IF NBRKS=0 THEN LOCATE 15,13:PRINT "YOU WONI!!1!1":GOTO 309 

255 REM Draw the ball at its new location 

269 PUT(BX, BY), BALL 

265 REM Loop back and do it all again 

278 GOTO 196 

275 REM The ball went past the paddle, so there is one less ball 

288 NBALLS=NBALLS-1 

285 REM Erase the old ball and goto where a new ball will be 
started 

296 PUT(OLDBX, OLDBY),BALL:GOTO 178 

295 REM Common proper exit for both winning and loosing 

3@0 LOCATE 25,9:PRINT "PRESS ANY KEY TO CONTINUE"; 

318 AS=INKEYS:IF A$="" THEN 3106 ELSE CLS 

328 END 


The most obvious omission in Blockbuster is the lack of 
sound. BASIC provides an impressive array of noise-creat- 
ing commands. BEEP is the simplest, producing a single 
short tone. SOUND produces a specified tone of specified 
duration. PLAY is the aural equivalent of the DRAW state- 
ment, a small language in its own right. Experiment with 
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adding these to Blockbuster. Remember, though, that the 
longer the sound, the slower the game action. 

Many of the details of any game are what is commonly 
called “‘human engineering.’’ These are elements which 
have nothing to do with the play of the game per se, but 
which are intended to reduce the player’s frustration. An 
example of this is the way we started the game with the 
ball aimed directly at the paddle, so the ball wouldn’t be 
lost immediately when a beginner was playing. Similarly, 
it would be a good idea to pause after a ball is lost to allow 
the player to recover. You could design the program so the 
player would press a certain key to start the ball, thus 
ensuring that the player always would be prepared. This 
would give him a feeling of control, and might make the 
game pace more pleasant, as there are currently no breaks 
in the flow of the game. 

Another nice touch would be a key that halted the action 
until it was pressed again. Such a key allows acknowledg- 
ment of a ringing phone or the ‘“‘call of nature.’’ While 
Ctrl-Num Lock accomplishes the same result, it can be 
hard to press two keys at once in the midst of concentrat- 
ing on a game, so a single key is preferable. 

Both the start and end of the game can have added fea- 
tures. At the player’s option, the game could provide 
instructions when it is run initially, and could be started 
at the player’s leisure with the press of a key. Upon con- 
clusion, the winning or losing message (which might be 
better placed) can be displayed for several seconds, then 
the instruction screen redisplayed, so the game can be 
restarted or ended with the press of a key. These addi- 
tional features make it easier for the player to play multi- 
ple games; players are never in a situation where they 
can’t figure out what to do next. The program should pro- 
vide a self-contained, self-explanatory environment for the 
player. 

In addition to the preceding features, multiple screens 
and skill levels can be added to Blockbuster. There are 
many possible brick layouts of varying degrees of diffi- 
culty. Rather than ending when the bricks are cleared, the 
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game could progress to more difficult screens, so the 
player’s increasing skill could be matched. Similarly, the 
speed could start out slow and increase, so players would 
be constantly challenged. (Incidentally, it would be possi- 
ble to compress the program code into fewer lines so it 
would run faster. We have spread the code over many 
lines only for explicative purposes.) The start point of the 
ball could also be varied using the RND function, so the 
game would be less predictable. 

One other possible enhancement would be the mainte- 
nance of a high score on disk. It is truly interesting how 
hard people will play a game for the honor of having their 
score displayed. 

No doubt, you will find other shortcomings of the cur- 
rent version of Blockbuster. By all means, fix them! You 
cannot simply read your way to becoming a game 
designer. You must design and program. Before proceed- 
ing to the next chapter, dissect Blockbuster and make at 
least one change to the program. Only in this way will you 
progress. 
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THE DRAW STATEMENT—A 
LANGUAGE WITHIN A 
LANGUAGE 


For all the power of the graphics commands you've 
learned so far, these commands can be awkward to use 
and often require many program lines for relatively simple 
applications. Once again, BASIC provides an alternative in 
the form of the DRAW statement. The DRAW statement is 
a small graphics language within the BASIC language, 
complete with a set of one-letter commands. Draw can do 
anything that the PSET or LINE statements can and us- 
ually can do so a good deal more easily. 

The DRAW statement is best visualized as a set of com- 
mands controlling a pen which draws on the screen. 
(When we use “pen” to describe what DRAW does, we 
mean an imaginary pen that draws pixels on the screen.) 
The pen can make linear moves to any point on the 
screen, with the moves described in either absolute or rel- 
ative coordinates. The pen can leave a trail in any avail- 
able color, or it can be “‘lifted” from the screen as it moves. 
Figures can be scaled and rotated 90 degrees. We will 
begin our discussion of the DRAW statement by covering 
basic movement around the screen. 


MOVING AROUND THE SCREEN—THE M SUBCOMMAND 


First we will explain how the DRAW statement works. Its 
form is DRAW commandstring where the characters in 
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the string commandstring are commands to the DRAW 
command. For example, type: 


NEW and press Enter 


to clear memory and reset all DRAW parameters to their 
default state. Clear the screen in medium-resolution mode, 
and type: 


DRAW ''M198,198M199,199"' and press Enter 


The string following DRAW instructs BASIC to move to 
location (19%,19@) and then (199,199), leaving a line as it 
goes. The parameter commandstring may be either a 
string constant, as above, or a string variable, as in 
A$="M199,199M199,199”: DRAW AS. 

A summary of subcommands to the DRAW statement is 
shown in Table 12-1. 

The simplest DRAW subcommand is the move sub- 
command, M, which is used as DRAW ‘‘Mx,y’’ where the 
letter M is the move subcommand, and x and y are the 
new coordinates. Both x and y are required. 

It is important to understand that the M subcommand is 
not like PSET in that it draws a dot at the specified loca- 
tion. A trace of all movement is left on the screen unless 
explicitly turned off. (More on lifting the pen later.) For 
example, clear the screen and type: 


PSET (58,58): DRAW 'M159,158" and press Enter 


The PSET statement sets the last point referenced to 
(59,50). The M subcommand to the DRAW statement 
then moves the pen from the last point referenced to (159, 
159), drawing as it goes. To emphasize—DRAW leaves 
pixels everywhere it goes, not just where it arrives. 

X and y may be specified in either absolute or relative 
coordinates, but relative coordinates are specified differ- 
ently than with other graphics commands. If x is prefixed 
with a plus sign (+) or a minus sign (—), then x and y are 
treated as relative coordinates. Relative coordinates are 
taken relative to the last point referenced. DRAW sets the 
last point referenced to the last pen position, even if the 
pen did not draw at that position. The last point refer- 
enced is especially important to the DRAW statement 
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Table 12-1. DRAW Statement Subcommands 


DRAW 
SUBCOMMAND DESCRIPTION 


Move. If x has a plus or minus sign, the move is 
relative to the last point referenced; otherwise, the 
move is absolute to (x,y). If the move is relative, 
distances represented by x and y are determined 
by the S subcommand. 


Un Move up. The distance moved is n units: actual 
distance covered is determined by the S sub- 
command. 

Dn Move down. 

Rn Move right. 

Ln Move left. 

En Move up and right (northeast). 

Fn Move down and right (southeast). 

Gn Move down and left (southwest). 

Hn Move up and left (northwest). 

B Blank (prefix). Don’t draw any points when exe- 
cuting the next subcommand. 

N No move (prefix). Return to starting position after 
executing the next subcommand. 

An Angle. Rotate figures 0, 90, 180, or 270 degrees, 
with n equal to Q, 1, 2, or 3, respectively. 

Cn Color. Select color Q, 1, 2, or 3 to draw with. 

Sn Scale. Select figure scaling size, with 1 the small- 


est and 255 the largest. The default is n=4, where 
1 unit=1 pixel. 


Xn§; Execute substring. The specified DRAW com- 
mand string is executed, and then the current 
command string continues. With the X subcom- 
mand, one DRAW command string can execute 
‘| one or more other command strings. 


because a line is drawn between the last point referenced 
and the new point. 

As an example of screen addressing, clear the screen 
and type: 


PSET (190,180): DRAW 'M158,106'"': DRAW '"'M+9,59"': 
DRAW "M—59,—58" and press Enter 
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The first DRAW specifies the address in absolute fash- 
ion, while the last two DRAWs use relative addressing. 

Multiple DRAW subcommands can be combined in a 
single string, thus making the DRAW statement extreme- 
ly compact. The preceding example could just as well 
have been written as PSET (199,190): DRAW ‘“M15@,100 
M+9,5@ M—5@,—5@’’. (The spaces are optional.) DRAW 
commands can be a little cryptic at times, but then again 
consider that it would have taken three LINE statements 
to produce the same result, and we have barely tapped the 
DRAW subcommands. There is, however, a separator that 
can be used to improve readability if necessary. Semico- 
lons can be inserted between subcommands, and, in fact, 
are required in certain circumstances. The previous exam- 
ple is certainly clearer as PSET (199,199): DRAW “M159, 
199; M+@,59; M—5@,—5@” than as one long string, and 
semicolons become more useful as command string 
lengths increase. 

BASIC strings can be as long as 255 characters. A 
DRAW command string of this length would be difficult to 
decipher, even with semicolons. One DRAW command 
picks up where the last left off, however, so that long com- 
mand strings usually are not needed; several short (and 
more readable) strings almost always will do as well. 

There is one quirk of the M subcommand. The DRAW 
statement allows the use of a scaling factor, so the dis- 
tance drawn by DRAW subcommands is dependent on the 
current scaling factor. For example, if the scale factor is 1/ 
2 normal, then each DRAW subcommand will move only 
1/2 as far across the screen as it would normally. This can 
be useful in that the same DRAW command string can 
draw a figure in any number of sizes, as the situtation 
requires, simply by changing the scaling factor. This scale 
factor, which we will discuss in detail later, affects relative 
addressing as used with the M subcommand. For exam- 
ple, if the scale factor is 1/2 normal, then DRAW “M+2@, 
20” will only move to a point 10 pixels below and 10 
pixels to the right of the last point referenced. However, 
the M subcommand using absolute addressing is not 
affected by the scaling factor. 
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The default for the scale factor is 1 distance unit equals 
1 pixel, so, until the scale factor is changed, distance is 
measured in pixels. Until we reach the scale sub- 
command, we will treat distance and number of pixels 
as synonymous, so you need not worry about the scale 
factor. 


MOVING AROUND THE SCREEN—THE MOVEMENT 
SUBCOMMANDS 


In many cases, there is a shorter way to accomplish what 
the M subcommand does when it uses relative addressing. 
There are four subcommands: U, D, L, and R, that move 
the fictional screen pen up, down, left, and right, respec- 
tively, a specified distance. The U subcommand is DRAW 
“Un” where n is the distance to move. If n is omitted, it 
defaults to 1. As discussed above, due to the scale factor, 
distance is not necessarily the same as number of pixels, 
but we will treat the two as the same for now. The other 
three subcommands take the same form, except, of 
course, that the appropriate letter D, L, or R is substituted 
for U. 
For example, clear the screen and type: 


DRAW ''U48 L6% D48 R60" and press Enter 


to draw a rectangle. Each subcommand starts from the 
end point of the last subcommand. Note that this is con- 
siderably more compact and intelligible than DRAW 
“M+@0,—40 M—69,0 M+@,4@ M+6@,0”’. 

There is the question, where the first DRAW begins if no 
last point referenced exists. Fortunately, this point is well 
defined—it is (16@,19@). In fact, each time the screen is 
cleared, the last point referenced for DRAW is reset to 
(169,199). 

There are four more movement subcommands: E, F, G, 
and H. These commands move diagonally up and right, 
down and right, down and left, and up and left, respec- 
tively. It is easy to remember these subcommand if you 
can remember that the E subcommand points up and 
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right, or northeast. Then the other three subcommands 
fall into place as we move clockwise, as shown in Fig. 
12-1. 


i 
| 
| 
I 
| 
| 
I 
| 


| 
| 
I 
| 
| 
I 
| 
| 
Y 
D 
Fig. 12-1. Action of DRAW Movement Subcommands. 


The E subcommand takes the form DRAW “En” and 
the others are similar, just as with the first four movement 
subcommands. The distance represented by n is some- 
what different with this set of four subcommands, because 
pixels are spaced farther apart in a diagonal direction than 
they are horizontally or vertically. Thus, a given distance, 
as specified by n, will be about 1.4 times as far diagonally 
as horizontally or vertically. This effect makes it easier to 
join lines in a command such as DRAW “R1@ D1@ H10”’, 
so you probably will find it quite useful; just bear in mind 
that this effect does occur. If n is omitted, it defaults to 1. 

The use of these four movement subcommands is 
straightforward. For example, clear the screen and type: 


DRAW "E39 F5@ G3 H59"' and press Enter 


All eight movement subcommands, along with the M 
subcommand, can be used together. The program shown 
in Listing 12-1 uses the M subcommand to make an initial 
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absolute move, and thereafter uses the movement 
subcommands. The M subcommand is preferable to the 
movement subcommands only when either an absolute 
move is desired or a move that is not diagonal, horizontal, 
or vertical (e.g., “M+19,20’’) is to be made. 


Listing 12-1. DRAW Statement Movement 
Subcommands. 


196 REM Program to demonstrate DRAW statement movement 
116 REM subcommands by drawing a kite. 
129 SCREEN 1,8:COLOR @,1:KEY OFF:CLS 


130 DRAW "m24G,49" ‘Draw string 
148 DRAW "u2@ d48 u28 126 r4G" ‘Draw cross 
158 DRAW "g28 h2@ e20 £26" "Draw outline 


16@ LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
170 AS=INKEYS$:IF AS="" THEN 178 ELSE CLS 
188 END 


CONTROLLING THE PEN 


So far, we can move wherever we want on the screen, but 
we always leave a line behind as we move. As we control 
the imaginary pen, we sometimes want to be able to lift it 
off the screen as we move it, leaving no line. This is 
accomplished with the B subcommand. 

The B, or blank, subcommand operates as a prefix to 
any of the subcommands that set screen position. If a sub- 
command is prefixed with B, the action the subcommand 
causes has no effect on the screen. For example, DRAW 
““BM+99,99” draws no line, but moves the last point ref- 
erenced, as evidenced by typing (without clearing the 
screen): 


DRAW ''U19@'' and press Enter 


The B subcommand only lifts the pen for the duration of 
the single subcommand following it, so it is never neces- 
sary to explicitly reset DRAW to draw on the screen. To 
keep the pen off the screen for several successive sub- 
commands, each must be separately prefixed with B. 

There is another pen control subcommand, N, which 
simplifies drawing complex figures. Like the B sub- 
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command, the N subcommand operates as a prefix to 
any subcommand that sets screen position. Any sub- 
command prefixed by N will execute its action normally; 
upon finishing, N-prefixed subcommands will reset the 
last point referenced to the same point as when the sub- 
command began. This makes it easy to draw figures 
around a central point. For example, clear the screen and 
type: 
DRAW '"NU38 NR38 ND39 NL3" and press Enter 


Note that each subcommand starts from the same point, 
even though each terminates at a different point. The N 
subcommand makes DRAW command strings more com- 
pact and more readable, and makes errors less likely than 
if the programmer had to retrace his steps to get back to 
the original point. (While there is no obvious mnemonic 
for the N subcomman4d, it can perhaps be thought of as the 
‘“‘no-move”’ subcommand.) 


THE COLOR SUBCOMMAND 


There are three subcommands that set the environment in 
which other DRAW subcommands execute. The first of 
these subcommands is the C, or color, subcommand. 

The C subcommand selects the color in which the line is 
to be drawn. It is used as DRAW “‘Cn”’ where n is @ for the 
background color, or 1-3 for the colors of the selected pal- 
ette in medium-resolution graphic mode. All pixels 
affected by the DRAW statement are drawn in color n until 
another C subcommand is executed. If n is out of range, 
color 3 will be used. 

For example, clear the screen and type: 


DRAW ''C1 L5@ C3 D4@ C2 M+58,—48'' and press Enter 


to use each of the three palette colors. The background 
color can be used to erase. For example, leave the screen 
unchanged and type: 


DRAW ''C® L59 D49 M+58,—40'' and press Enter 


to erase the image we just drew. We have drawn the figure 
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again in color 9. Because color @ is the color the back- 
ground is drawn in, redrawing the figure in color @ is the 
same as erasing the figure. 


THE SCALE SUBCOMMAND 


The S, or scale, subcommand sets the number of pixels 
represented by the distance parameter to DRAW subcom- 
mands. Varying the scale factor causes the size of any fig- 
ure drawn with the DRAW statement to vary proportion- 
ately. 

The S subcommand is used as DRAW “‘Sn’”’ where n is 
the scale factor, in the range 1 to 255. An out-of-range 
value for n will result in an ‘Illegal function call” error. 
The scale factor operates by setting the number of pixels 
drawn for each unit of distance to n/4. For example, if n is 
4, then n/4=1 pixel is drawn for each unit of distance spec- 
ified. Clear the screen and type: 


DRAW ''S4 R19" and press Enter 


to set the scale factor to 4 and draw 10 distance units = 10 
pixels to the right. 4 is the default scale factor. 
Similarly, leave the screen unchanged and type: 


DRAW ''S1 BU8 L4$"' and press Enter 


This only produces a line the length of the first line, even 
though the distance value is 49, because 4@ is scaled to 10 
by the 1/4 scale factor. 

Scale factor enables us to draw a figure easily in any 
desired size. For example, store a diamond shape in D$ by 
typing: 

D$S=""E29 F26 G20 H29" and press Enter 


Now clear the screen and draw the figure in four sizes by 
typing: 
DRAW ''BM@,1%@ Si ''+D$ and press Enter 
DRAW ''BM28,18@ S4 ''+D$ and press Enter 


DRAW ''BM78,18% S8 ''+D$ and press Enter 
DRAW ''BM16%,100 S16 ''+D$ and press Enter 
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(Use the edit keys to reuse the same line at the top of the 
screen for the DRAW statements, so the text doesn’t wan- 
der into the forms we’ve drawn.) Clearly, it is no trouble at 
all to draw a form in any size using DRAW, and this is as 
true for complex forms such as schematic symbols as for a 
simple diamond. 

The preceding example may require a little explanation. 
We initially store the DRAW command string for a dia- 
mond in the string variable D$. We then set the last point 
referenced, without drawing, with BM, set the scale factor 
with S, and draw the diamond with D$. The plus sign (+), 
when used with strings, concatenates them; that is, the 
plus sign joins the two strings into one string. In the first 
DRAW statement in the preceding example, the DRAW 
“‘BMO,10@ S1 ‘‘+D$ is precisely the same as DRAW 
‘‘BMO,100 S1 E20 F20 G20 H2Q’’. Using string variables 
and combining strings in this fashion greatly enhances the 
power of the DRAW statement. 


THE ANGLE SUBCOMMAND 


Another DRAW subcommand is A, the angle subcom- 
mand. This subcommand rotates a figure by O, 90, 180, or 
270 degrees. What happens is that the A subcommand 
rotates the reference axes for purposes of the DRAW state- 
ment. Because all DRAW subcommands work with refer- 
ence to the new axes, the effect is to ‘‘spin’’ the entire fig- 
ure so it is aligned with the new axes. This means that if 
the new angle is, for example, 90 degrees, U (up) becomes 
L (left), L becomes D (down), and so on. Unfortunately, 
this effect is limited somewhat more than we might wish 
because the reference axes can only be turned multiples of 
90 degrees. 

The A subcommand is DRAW ‘‘An” where n is O, 1, 2, 
or 3, corresponding to rotations of 0, 90, 180, or 270 
degrees. An out-of-range value for n will result in an “‘Ille- 
gal function call” error. The absolute addressing version of 
the M subcommand is not affected by the A sub- 
command. 

As an example of the A subcommand, define a flat rec- 
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tangle with F$=”"U1@ R6Q@ D1@ L6Q’’, then clear the 
screen and type: 


DRAW ''A@''+F$ and press Enter 


This is the unrotated rectangle and is equivalent to DRAW 
F$ in the default (unrotated) case. 
Now clear the screen and type: 


DRAW ''A1''+F$ and press Enter 


and you have a tall rectangle. To see the full range of rota- 
tion, leave the screen unchanged and type: 


DRAW "'A2'"'+F$: DRAW "A3'"'+F$: DRAW "AO''+FS and 
press Enter 


Note that the angle set with the A subcommand remains 
in effect until changed. To return to the normal reference 
axes, DRAW ‘‘AQ”’ must be typed. 

Within the limits imposed by the 90 degree minimum 
rotation, the A subcommand is an easy way to rotate a fig- 
ure from its normal attitude. Changing the angle is not 
particularly useful if you are going to draw a figure only 
once, but it can be useful if a predefined figure is to be 
shown in a number of attitudes. For example, define the 
image of an elongated X with X$="F3@ NE15 NF1@ 
NG15’’. Now type: 


CLS: DRAW ''BM19,65 A@'+X$: DRAW ''BM7@,180 A1''+X$ 
and press Enter 

DRAW ''BM189,10@ A2"+X$: DRAW "'BM266,65 A3'"'+X$ 
and press Enter 


The figure is drawn so it appears to be caught in several 
stages of spinning. Here, the A subcommand has saved 
having to specify four images, instead allowing us to use 
one image, contained in X$, and four rotations. 

The same approach can be extended to figures as com- 
plicated as a cartwheeling human; often four rotations will 
serve admirably to create the impression of motion, partic- 
ularly in conjunction with animation via the PUT graphics 
statement. In such a case, the image is defined and drawn 
first in all four rotations with the A subcommand. The 
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rotations are saved to an array with the GET statement 
and are available then to be drawn rapidly with the PUT 
statement as discussed in Chapter 10. The program 
shown in Listing 12-2 illustrates this concept. 


Listing 12-2. DRAW Statement Animation. 


189 REM Program to demonstrate animation based on rotations 

119 REM with the DRAW statement. 

128 SCREEN 1,8:COLOR 0,1:KEY OFF:CLS 

138 REM Define image to be rotated 

148 IMAGES="bmt6,-5 dl@ 112 ul@ r4 br4 r4 bl6 bd3 mw,O" 

159 REM Draw and GET image rotation #0 

168 DRAW "c3 aM bmnlG,10"+IMAGES 

176 DIM ANGLES (190) :GET(9,9)-(28, 28) , ANGLES 

188 REM Draw and GET image rotation #1 

199 DRAW "c3 al bmn3G,10"+IMAGES 

20 DIM ANGLE1 (190) :GET(20,9)-(48, 20), ANGLE] 

219 REM Draw and GET image rotation #2 

228 DRAW "c3 a2 bm5,10"+IMAGES 

238 DIM ANGLE2(19@) :GET(49,9)-(69, 20) , ANGLE2 

249 REM Draw and GET image rotation #3 

25@ DRAW "c3 a3 bm79,10"+IMAGES 

268 DIM ANGLE3(10@) :GET(69,9)-(80, 29) , ANGLE3 

27 REM Draw across screen in alternating rotations. 

288 REM Rotations #1 and #3 are transposed in sequence 

299 REM so that the rotation is in the correct direction 

308 FOR I= TO 280 STEP 8 

319  PUT(I,9@),ANGLEQ:FOR J=1 TO 80:NEXT J:PUT(1I,9@) , ANGLEG 

326 PUT(I+2,90),ANGLE3:FOR J=1 TO 80:NEXT J:PUT(I+2,9@),ANGLE3 
330 PUT(I+4,90),ANGLE2:FOR J=1 TO 88:NEXT J:PUT(I+4, 9), ANGLE2 
348 PUT(I+6,90),ANGLE]:FOR J=1 TO 8Q8:NEXT J:PUT(1+6,9) , ANGLE] 
358 NEXT I 

36G LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 

376 AS=INKEYS:IF AS="" THEN 37 ELSE CLS 

38 END 


The A subcommand is useful especially for manipula- 
tion of drawings of component parts, such as resistors or 
capacitors. Whole schematics can be produced with a few 
appropriately located and rotated DRAW command 
strings. Likewise, a floor plan could be produced with 
command strings for objects such as tables and chairs, 
rotated as needed. 

There is one other item regarding the A subcommand. 
As you may remember from our discussion of aspect ratio 
in Chapter 7, there is some confusion about the proper 
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correction for the screen aspect. The A subcommand has 
the property of correcting for screen aspect when rotating 
to 90 and 270 degrees (4/3 ratio), so that any figure will 
appear to be approximately the same dimensions whether 
drawn horizontally or vertically. 

BASIC does, in fact, use 5/6 to correct for screen aspect 
here as well. For example, type: 


T$="U58 R68 D058 L69"' and press Enter 
and then clear the screen and type: 


DRAW "AS"+TS: DRAW "A1"'+T$S: DRAW "A2"'+T$S: DRAW 
"A3'"'+T$ and press Enter 


and see that each square is of exactly the same dimension. 
Presto, BASIC has corrected a 5/6 aspect ratio form, which 
appears to be a square, to the proper dimensions so it con- 
tinues to appear to be a square when rotated on its side. 


VARIABLES IN THE DRAW STATEMENT 


All the command strings we have described have drawn 
what are essentially fixed figures. For example, while we 
can draw any given rectangle, we have no way to draw a 
rectangle of variable dimensions. The DRAW statement 
does, however, allow us to use variables as easily as con- 
stants. 

Clear the screen and type: 


FOR I=18 TO 58 STEP 10: DRAW "R=I;D=I;L=I;U=I;"': 
NEXT I and press Enter 


Notice that this effect is not accomplished with the S 
subcommand; instead, we are specifying distances with 
variables rather than with constants. 

Variables to the DRAW statement are indicated by pre- 
ceding them with an equal sign (=) and following them 
with a semicolon (;) in the form DRAW ‘“‘z=n;”’ where z is 
any of the above DRAW subcommands, and n is the vari- 
able parameter. In this case, the semicolon is required. 
Note that any number in any DRAW subcommand may be 
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replaced with a variable, including either x or y in the M 
subcommand, and the parameters to the C, A, and S 
subcommands. In fact, array variables of any dimension 
may be used. For example, in DIM A(1®): A(2)=2@: I=2: 
DRAW ‘“U=A(D;’”’. This gives enormous flexibility to the 
DRAW statement, which, with variable parameters, 
becomes capable of producing virtually any display, such 
as the concentric diamonds produced by the program 
shown in Listing 12-3. The program is more compact than 
any that could be written with the PSET or LINE state- 
ments. In combination with the scaling and angle capabili- 
ties of the DRAW statement, variables make the DRAW 
statement the fastest and most compact way to execute 
graphics from BASIC on the IBM PC. Yet, there is still one 
more element to the DRAW statement. 


Listing 12-3. Variable Parameters To DRAW. 


198 REM Program to demonstrate variable parameters to DRAW. 
118 SCREEN 1,9:COLOR @,1:KEY OFF:CLS 

129 REM Set string to draw diamond 

138 DIAMONDS="bu8 £8 g8 h8 e8 bd8" 


149 DRAW "bmléd, 100" "Set center point 
15@ FOR SCALE=2 TO 36 STEP 2 ‘Draw 18 diamonds 
168 DRAW "“s=scale;"+DIAMONDS ‘Draw scaled diamond 


176 NEXT SCALE 

189 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
198 AS=INKEYS$:IF AS="" THEN 199 ELSE CLS 

288 END 


DRAW SUBSTRINGS 


The preferred method of programming, especially for com- 
plex programs, is to write subroutines that execute basic 
functions, and then to use these subroutines as building 
blocks to construct the whole program. This approach has 
the virtue of allowing the task to be broken into smaller 
portions, which are designed and debugged more easily, 
and which can be used readily by several sections of the 
program or, indeed, by several programs. A similar 
approach is possible with the DRAW statement via the X 
subcommand. 
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The X subcommand executes a DRAW command string 
as a substring. The X subcommand is DRAW ‘“‘Xstring;”’ 
where string is a valid DRAW command string, and the 
semicolon is required. For example, clear the screen and 
type: 


AS="U19 R10 G10": DRAW ''M100,100 X A$;"' and press 
Enter 


(The spaces are optional.) This produces results identical 
to A$="U19 R1@ G19”: DRAW “M19@,100 ‘‘+A$, so 
why is the X subcommand particularly useful? Well, 
remember that BASIC strings are limited to 255 charac- 
ters, so that strings could only be combined so long as the 
overall length was less than 255. With the X subcom- 
mand, DRAW command strings can be of any length. 
Also, because the X subcommand is specifically designed 
to execute substrings, it is easier to interpret when trying 
to determine just what a DRAW command string does. 

The program shown in Listing 12-4 DRAWs by execut- 
ing substrings. Type and run it, noting the compactness 
and clarity of the program. 

If the substring contains an invalid command string, an 
“Tllegal function call’’ error will result. 

Variable parameters in the form ‘‘=n;’’ are not permit- 
ted with the X subcommand. However, there is, another 
way to accomplish the same effect. A string variable can 
contain the name of the substring variable to be executed. 
While this concept is none too straightforward, it adds to 
the flexibility of the DRAW statement. For example, clear 
the screen and type: 


AS=""U28 R29'"':BS="D28 L2G" and press Enter 
to define two different substrings. Now type: 
CS="A$S": DRAW '"'X ''+C$+''2"" and press Enter 


to execute substring A$, the name of which is assigned to 
C$, and then type: 


CS="BS'"': DRAW ''X '"'+C$+"s"" and press Enter 
to set the contents of C$ to the string ‘‘B$’’, then to exe- 
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Listing 12-4. DRAW Statement Substring Commands. 


108 
118 
128 
130 
149 


REM Program to demonstrate use of substring subcommands 


REM with the DRAW statement. 


SCREEN 1,8:COLOR @,1:KEY OFF:CLS 
REM Set substring to draw a square 


S$="r24 d28 124 u20" 


158 DRAW "c3" ‘Set color to white 
166 REM Draw some scaled squares 

178 DRAW "bm19,10" ‘Upper left corner 
186 FOR I=1 TO 16 STEP 2 '8 sizes 

199 DRAW "s=i; x s$;" 

208 NEXT I 

218 DRAW "s4" "Reset scale 

228 REM Animate the square 

230 PRESET(19,148):DRAW "x s$;" ‘Draw initial square 
249 FOR I=19 TO 268 STEP 19 ‘Move square 26 times 


250 DRAW "“br=i;,149 cO x s$;" ‘Erase old square 
268 JIAHEAD=I+1¢ ‘Point to new square 
278 DRAW “bmeiahead;,148 c3 x s$;" ‘Draw new square 

289 NEXT I 


REM Rotate the square 


DRAW "bm24G, 52" ‘Common corner of squares 


319 FOR I=% TO 3 ‘Draw all 4 rotations 
326 DRAW "a=i; x s$;" ‘Draw the rotated square 
338 NEXT I 


349 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
359 AS=INKEY$:IF AS="" THEN 358 ELSE CLS 
368 END 


cute substring B$. (Remember that the contents of a string 
variable are no different from a string constant.) 

If you find this last section confusing, don’t worry; this 
is an advanced technique which you can manage without. 
However, it does expand the potential power and ease of 
use of the DRAW statement. 

The X subcommand is useful for constructing a figure 
by drawing one section at a time via substrings. For exam- 
ple, a building could be drawn by repeatedly using a few 
substrings that hold the commands to draw various win- 
dows and doors. 

The X subcommand is also useful for compacting pro- 
gram code and for making DRAW command strings more 
readable. 


148 


The DRAW Statement—A Language Within a Language 
ERROR CONDITIONS 


There are few circumstances in which the DRAW state- 
ment will produce an error message. It does not matter if 
coordinates are off the screen; DRAW will plot the pixels at 
the nearest on-screen point and maintain the off-screen 
coordinate as the last point referenced. This is similar to 
what happens to off-screen points with the PSET state- 
ment, except that a point is always plotted with the DRAW 
statement. In practical terms, this means that if your pro- 
gram DRAWs off the screen, a line along the border of the 
screen will be produced, a line that will consist of the near- 
est on-screen point for all the off-screen points plotted. 

The only error message produced by DRAW is “Illegal 
function call’’. Potential causes include out-of-range 
parameters to the A or S subcommands (though not to the 
C subcommand), characters that are not subcommands, 
and the use of invalid strings as parameters to the X 
subcom mand. 


SUMMARY OF THE DRAW STATEMENT 


The DRAW statement is really a small graphics-oriented 
language. The subcommands are only one letter long, and 
the effects are confined solely to graphics, but DRAW 
subcommands are complete, powerful, and self-contained. 
Just as the other graphics capabilities of BASIC are an 
advance on crude text-mode graphics, DRAW is an 
advance over the other BASIC graphics statements taken 
as a whole. DRAW is one of the features that makes the 
IBM PC an exceptional graphics computer. 

The DRAW statement operates faster in drawing a com- 
plex figure than LINE and PSET do. Even so, speed is a 
limitation. The graphics GET and PUT statements, how- 
ever, can be used in conjunction with the DRAW state- 
ment to produce the rapid graphics required for anima- 
tion. 

As your graphics projects become more ambitious, the 
DRAW statement will become increasingly important. You 
will discover that you have developed a set of ‘‘primi- 
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tives’,—DRAW command strings that define frequently 
used building-block forms—you will use in many pro- 
grams. Also, as your programs become larger, space con- 
siderations will become important, and there is no more 
compact way to execute graphics than with the DRAW 
statement. Whenever you consider how to approach a 
graphics problem, think of the DRAW statement; few are 
the applications that cannot be most quickly and effi- 
ciently accomplished with DRAW. 
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A CHARACTER-GENERATION 
PACKAGE 


In earlier chapters, we described the limitations of printing 
text in graphics mode. BASIC can print characters only 
every 8 pixels, and can print characters only of a certain 
size and shape. Nor does BASIC provide us with an easy 
way to produce italics, boldface, underlining, subscripts, 
superscripts, or many foreign and scientific characters. 
However, the PC is fully capable of displaying virtually 
any characters desired. 

In this chapter, we will demonstrate a character-genera- 
tion package, consisting of two subroutines, that allows 
flexible, user-definable character generation and which 
can be inserted into and used from any BASIC program. 
The key to this package is the power of the DRAW state- 
ment. 

Fig. 11 in the color photograph section gives you an idea 
of what this character-generation package can do. In this 
chapter, we will first define the nature of text, then explore 
the character-generation package, and finally describe the 
workings of the sample program and how you can inte- 
grate the package into your own BASIC programs. 


THE NATURE OF TEXT 


Text consists of pixels organized to look like characters. 
For example, the letter A appears as shown in Fig. 13-1. 
This is true in both text and graphics modes. When we use 
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PRINT in graphics mode, BASIC draws the pattern of the 
specified characters for us. In this case, we are limited to 
only one pattern for each character BASIC knows and to 
only the locations at which BASIC can PRINT. Alterna- 
tively, we could draw the characters, then be able to draw 
patterns in any size and at any location that we desire. 
This would seem to require an overwhelming array of 
graphics statements and program code. However, DRAW 
lets us reduce the entire character-generation process to 
less than 10 program lines, plus one line for each charac- 
ter we wish to generate! 

To see how DRAW can be used to draw a character, 
clear the screen in medium-resolution mode and type: 


AS=""A® BD1 D5 BU2 R4 BD2 US H1 L2 G1 BUi'': DRAW 
A$ and press Enter 


and the letter A will appear. This character is a collection 
of lines, composed of pixels, and created with DRAW. It is 
possible to relate each of the DRAW subcommands to the 
form of the letter A. For instance, the D5 subcommand 
draws the left side of the letter. 

The C, A, and S subcommands to DRAW make it easy to 
implement color, rotation, and scaling capabilities. For 
example, type: 


DRAW "BR26 A2 S8''+A$ and press Enter 


where A$ is defined in our last example, to draw a large, 
upside-down A. Type: 


DRAW "AS S4"' and press Enter 


to restore the normal unrotated, unscaled DRAW environ- 
ment. 

DRAW provides all the tools we require to implement 
character generation—the challenge is to make these 
capabilities readily available to the BASIC programmer. 
We must make it possible for a BASIC program to specify 
the color, angle, and size of the text to be printed and to 
print the text not only in the normal fashion—horizontally 
from left to right—but with any desired direction and spac- 
ing the programmer desires. 
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SUBROUTINES 


A subroutine is a section of a BASIC program that can be 
executed from another part of the program by the state- 
ment GOSUB n where n is the line number of the first line 
of the subroutine. The subroutine ends with a RETURN 
statement, and the program resumes execution at the 
statement after the GOSUB that called the subroutine. 

The advantage of a subroutine is that it can be called 
from many places in a program, yet the subroutine exists 
in only one place. That is, GOSUB statements that call the 
subroutine can appear in several locations in the program, 
but the subroutine will only appear once, saving space and 
programming time. Also, the lines that constitute the sub- 
routine can be transferred to another program intact, so 
the subroutine need only be developed once but can be 
used over and over again. 

A subroutine is perfect for our character generator. Our 
subroutine can be located at high line numbers where one 
normally does not place program code, then it can be put 
into any program and called with the same GOSUB in 
every case. Our subroutine is located at lines 60000- 
60290, so it can always be ‘“‘called’’ by the statement 
GOSUB 699@@ in any program that includes the subrou- 
tine. The user will need to define the string to be printed, 
set any other characteristics (such as color) that he wishes 
to change, and then call the subroutine. 

We also need a second subroutine that will be called 
once, at the beginning of the program, to initialize the 
character-generation subroutine. 


STRUCTURE OF THE CHARACTER GENERATOR 


We will specify a DRAW command string that draws each 
character. We will also define several parameters that can 
be set by the user to specify color, rotation, scaling, and 
horizontal and vertical distance between letters. Then, 
when the user requests that a string be put on the screen, 
the program will find the DRAW command string that cor- 
responds to the first character in the string, and execute it 
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with the specified color, rotation, and scaling. It will do the 
same for the second character, and so on, until each char- 
acter in the string is drawn on the screen. 

The process of selecting the proper DRAW command 
string for the specified character is simple. We will estab- 
lish a string which contains each of the characters we 
might want to generate. For example, the first character 
would be A, the second B, and so on. We will call this the 
reference string. We will also establish a string array. The 
first element of the string array will be the DRAW com- 
mand string for our first character, A. The second element 
will be the DRAW command string for the second charac- 
ter, B, and so on for all the characters to be generated. We 
will call this the character array. We have only to deter- 
mine the location in the reference string of any character 
to be generated, and then the corresponding DRAW com- 
mand string will be selected from the array and executed 
to place the character on the screen. 

We need two subroutines: the first to initialize the 
parameters, reference string, and character array; and the 
second to execute the DRAW command string for each of 
the characters to be generated. 


THE INITIALIZATION SUBROUTINE 


The parameters and building blocks for character genera- 
tion must be initialized before the characters can be 
drawn. The program code for the initialization subroutine 
is shown in Listing 13-1. (Do not enter this listing—it is not 
a complete program and will not run.) This is a subroutine 
that must be called once, at the beginning of the program, 
by executing the statement GOSUB 69399. Line 60370 
sets default values for the character-generation parame- 
ters. The rotation angle, ZZA, is set to zero, specifying no 
rotation. The color, ZZC, is set to three, the color white. 
The scale factor, ZZS, is set to four, so that figures are 
scaled to normal size. The horizontal distance between the 
upper-left corners of the characters, ZZX, is seven, and the 
vertical distance between the characters, ZZY, is zero. 
This will produce white, normal-sized characters from left 
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to right across the screen as is the case with text created 
with PRINT. 

Line 60370 also sets aside room for the character array, 
which will contain the DRAW command strings that 
define the characters. We will only deal with the 26 letters 
of the alphabet, plus the always useful space character, so 
the string array ZZA$, which will hold the DRAW com- 
mand strings, has 27 storage locations. 

Notice that we start all variables associated with charac- 
ter generation with the characters ZZ. This is because we 
want to make sure that normal program variables, such as 
I, J, COUNT, and MAXX, do not have the same names. 
Using the same name for two different purposes would 
cause confusion and unpredictable program behavior. 
Few people start their variable names with ZZ. 

Lines 60390-60670 define the DRAW command strings 
for the characters. Each of lines 60410 through 60670 
stores the DRAW string for one letter of the alphabet in the 
character array, ZZA$. Thus, line 60410 stores the DRAW 
command string for A, line 60420 stores the string for B, 
and line 60660 stores the string for Z. Line 60670 stores a 
null string for the space character. Note that comments on 
the right of each line indicate which character the line 
defines. 

Line 60390 sets up the reference string ZZZ$, which is 
used to find the command string corresponding to the 
character to be printed. For example, the first character in 
ZZZS is A, and the first array element in the character 
array ZZA§$ is the DRAW command string for the charac- 
ter A. Likewise, the twenty-sixth character in ZZZ$ is Z, 
and ZZA§(26) is the string that draws the character Z. 
Once lines 60390-60670 are executed, the appropriate 
DRAW command string for any character in ZZZ$ can be 
selected based on that character’s location in ZZA$. 

When the initialization subroutine is finished, the 
default parameters are set, and the arrays ZZA$ is set to 
draw any character contained in ZZ$. To add more char- 
acters, more lines after 60670 would be added, each of 
which would store the DRAW command string for a given 
character in ZZA$. The character array ZZA$ would have 
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to be enlarged to hold the new strings. The characters 
then would be added to the reference string ZZZ$ in posi- 
tions corresponding to their locations in array ZZA$. 


Listing 13-1. Initializing Character-Generation 
Package I, 


60308 REM KKK I IKE ERK EK RE REE REE ER EERE RE REREREEEERK 


69310 REM Set reference and character strings. 

69328 REM This subroutine initalizes the character 
69338 REM generation package—it should be called 
69349 REM just once before the first call to the 
69358 REM character drawing subroutine. 

60366 REM HIKE KEE KEK KEE KERR EEE EREREREERREREEEEER 
6937 DIM ZZAS(27) :ZZA=8:ZZC=3 : ZZS=4 : ZZX=7 : ZZY=G 
68380 REM ZZZ$ is a reference string used to find the print ieee 
68398 ZZZS="ABCDEFGHLJKLMNOPQRSTUVWXYZ " 

69480 REM Each of the strings below is used to define 
68419 ZZAS(1)="BD1D5BU2R4BD2U5H1L2G1BUL" ‘A 


68428 ZZAS(2)="D6R3E1U1H1L3BR3E1U1H1L3" 'B 
68438 ZZAS(3)="BD1D4F1R2E1BU4H1L2G1BU" 1c 
69448 ZZAS(4)="D6R3E1U4H1L3" 'D 

68459 ZZAS(5)="D6R4BU3BLLL3BU3R4B1A" 'E 
68469 ZZAS(6)="D6BU3R3BL3U3R4BLA" 'S 
68478 ZZAS(7)="BD1D4F1R3U3L1BU3BRIL3G1BU1" 'G 
69489 ZZAS(8)="D6BU3R4BD3U6BL4" 'H 

68498 ZZAS(9)="BD6BRLR2BL1U6BRLL2BL1" bit 
68500 ZZA$(19)="BD5F1R1E1U5BL3" ‘J 
68519 ZZAS(11)="D6BU3RLF3BU6G3L1BU3" 'K 
69529 ZZAS(12)="D6R4BL4BU6" ti 
69538 ZZA$(13)="D6BR4U6G2H2" 'M 
69549 ZZAS(14)="DEBR4U6BD4H4" 'N 
69558 ZZAS$(15)="BD1D4F1R2E1U4H1L2G1BU1" xe) 
68568 ZZAS$(16)="D6BU3R3E1U1H1L3" ne 
68578 ZZAS(17)="BD1D4F1R1BR2H2BF1BG1E2U3H1L2G1BUL" 
69589 ZZAS(18)="D6BR4H3BL1R3E1U1H1L3" 'R 
69598 ZZAS(19)="BD6R3E1U1HIL2H1ULELR3BL4" 'S 
68689 ZZAS(20)="BDEBR2U6BR2LA" ey 
68618 ZZA$(21)="D5F1R3E1U5BLA" 'U 
69629 ZZAS$(22)="D3F1D1F1E1LULE1U3BL4" 'V 
69638 ZZAS(23)="D5F1E1U1BD1F1E1LU5BLA" 'W 
68648 ZZAS(24)="BD6ULE4U1BD6U1H4U1" 'x 
69659 ZZAS(25)="D2F2D2BU2E2U2B1A" Ww. 
69669 ZZAS(26)="BD6BR4L4ULE4U11L4" 'Z 
69679 ZZA$(27)="" " <SPACE> 


60688 RETURN 


A note about designing characters: we have not 
described the design of characters in detail. Type any of 
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the DRAW command strings on lines 60410-60670 to ver- 
ify that they work; you can check each of the DRAW 
subcommands in any string with a pencil and paper to see 
how they work. Usually, graph paper is the best way to 
design characters. Draw the character by hand first, with 
each box on the graph paper representing one pixel, then 
translate the dot pattern intoa DRAW command string. 

The DRAW command string must always end at the 
same point it started (the upper-left corner of the charac- 
ter), so the program can space properly to the next charac- 
ter. The B subcommand can be used to move back to the 
starting point without drawing, if necessary. 

There is one problem to be aware of when designing 
characters. If a character is drawn as a group of dots, the 
spacing between dots will increase when we scale the 
character larger. It is essential, therefore, to construct the 
character only out of lines, and these lines must meet at 
all corners. 

For example, clear the screen and type: 

AS=""BD1 D4 F1 R3 U3 L1 BUS BR1 L3 BL1'': DRAW AS 
and press Enter 


This defines and draws the character G, as shown in Fig. 
13-2. Note that the left side and top bars of the character 
are never joined. With normal scaling, this doesn’t matter, 
because the ends are adjacent. However, type: 
DRAW "BR18 S16''+A$ and press Enter 

to draw a larger character. The gap becomes obvious. This 
character is more properly defined as A$=’’BD1 D4 F1 
R3 U3 L1 BU3 BR1 L3 G1 BU1” as shown in Fig. 13-3. 
Here, the second to last subcommand G1 connects the two 
sides of the character. Type the preceding command to 
redefine A$ and type: 


DRAW ''BD19''+A$ and press Enter 
and you will see that there is no longer any gap. 


THE CHARACTER-DRAWING SUBROUTINE 


The actual drawing of the characters is done by the sub- 
routine at lines 60000-60290 as shown in Listing 13-2. (Do 
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Fig. 13-1. Pixels in letter "A". 


not enter this listing.) Note that most of this subroutine 
consists of REM statements, and only seven lines are 
required to do all the drawing. The many REM statements 
ensure that it will be easy for you and others to use the 
character-generator package in other programs. 

The subroutine functions like a new BASIC statement, 
complete with parameters. These parameters are several 
BASIC variables which ‘‘give instructions’’ to the subrou- 
tine. The parameters are described on lines 60070-60160. 
Here, ZZS contains the scaling factor, ZZA selects the 
rotation angle, and ZZC selects the color in which the 
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start _ BL L3 
POINT . — J = 


BD1 , 1 BR1 
I I 


R3 
Fig. 13-2. Letter "G'"' with gap. 


R3 
Fig. 13-3. Letter "G" without gap. 
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69095 
60018 
69626 
68639 
62049 
69958 
69860 
6287B 
66889 
6898 
691985 
60119 
601295 
69139 
6614B 
66159 
69166 
68176 
60186 
66196 
66206 
68218 
69226 
60230 
68246 


68256 


66268 
66278 
66286 
69298 
69306 
693195 
69320 
68338 
6934 
693598 
66368 
69378 
60388 
69399 
68406 
69419 
68426 
66438 
6G449 
66459 
68468 
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Package II. 


REM KRKKKEKEKKEEKEKEEKEREREKREERERER 


REM Character drawing subroutine. 
REM KKEKKEKKEREKEREEREREREEKRERERER 


REM 

REM A "GOSUB 69380" must be performed before the first 
REM time that this routine is used 

REM 

REM Input variables are: 

REM 

REM 2zzS - the character string to be printed 


REM zzs - the scale factor 

REM 2zza —- the angle of the character string 

REM zzc - the color of the character string 

REM zzx —- the horizontal distance between the origins 
REM of adjacent characters 

REM zzy - the vertical distance between characters 


REM The origin of a string is in the upper left corner 
REM The screen position is the "last point referenced" 
REM and can be set easily with a PRESET(x,y) 


DRAW “s=zzs;c=zzc;a=zza;" 'Set scale,color and angle 

FOR ZZI=1 TO LEN(ZZS$) ' for each character 
REM Locate the character in the reference string 
FOR ZZJ=1 TO LEN(ZZZ$):IF MIDS$(ZZZ$,Z2ZJ,1)= 
MID$(ZZ$,ZZI,1) GOTO 68268 ELSE NEXT 2ZJ 
PRINT "CHARACTER, ";MID$(ZZ$,ZZI,1); 
“ IS NOT AVAILABLE ":END 
REM Draw the character and position for next character 
DRAW ZZAS(ZZJ)+"br=zzx;bd=zzy;" 

NEXT ZZI 

RETURN 

REM KKK IKK IEEE EERE KEK KERR EKEEREREEEEREEE 

REM Set reference and character strings. 

REM This subroutine initalizes the character 

REM generation package--it should be called 

REM just once before the first call to the 

REM character drawing subroutine. 

REM KKK KEKE KEE EERE ER EREEEEKREREEEKREEREEEEE 


DIM ZZAS$ (27) : ZZA=@: ZZC=3 : ZZS=4 : ZZX=7 : 2ZY=B 


REM ZZZS$ is a reference string used to find the print char 


ZZZS="ABCDEFGHIJKLMNOPORSTUVWXYZ " 
REM Each of the strings below is used to define 


ZZAS (1)="BD1D5BU2R4BD2U5H1L2G1BU1" ‘A 
ZZAS (2)="D6R3E1U1LH1L3BR3E1U1H1L3" aR 
ZZAS (3)="BD1D4F1R2E1BU4H1L2G1BU" xc 

ZZAS (4)="D6R3E1U4H1L3" sD 

ZZAS (5)="D6R4BU3BL1L3BU3R4BL4" 'E 
ZZAS (6)="DEBU3R3BL3U3R4BL4" bie 
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Listing 13-2—cont. Initializing Character-Generation 


Package Il . 
6847 ZZA$(7)="BD1D4F1R3U3L1BU3BRLL3GIBUL" 'G 
68488 ZZA$(8)="D6BU3R4BD3U6BL4" 'H 
69498 ZZAS$(9)="BD6BR1R2BL1U6BRIL2BL1" “TE 
60588 ZZA$(19)="BD5F1R1E1U5BL3" "J 
69518 ZZA3(11)="D6BU3RLF3BU6G3L1BU3" 'K 
68528 ZZA$(12)="D6R4BL4BU6" 'L 
69530 ZZAS$(13)="D6BR4U6G2H2" 'M 
60548 ZZAS$(14)="D6BR4U6BD4H4" 'N 
60550 ZZA$(15)="BD1D4F1R2E1U4H1L2G1BUL" —'O 
68568 ZZAS(16)="D6BU3R3E1U1HLL3" 'P 
69579 ZZAS (17)="BD1D4F1R1BR2H2BF1BG1E2U3H1L2G1BUL" 
60588 ZZAS$(18)="D6BR4H3BL1R3E1U1H1L3" 'R 
69590 ZZAS(19)="BD6R3E1LU1H1L2H1U1E1R3BLA" 'S 
6680 ZZAS$(20)="BDEBR2U6BR2L4" wT 
66618 ZZAS(21)="D5F1R3E1USBLA" 'U 
68620 ZZA$(22)="D3F1DLFLE1ULE1U3BLA" 'V 
6630 ZZA$(23)= 'D5FLELULBDIFIE1U5BLA" 'W 
68642 ZZAS(24)="BD6U1E4ULBD6ULH4U1" x 
69658 ZZA$(25)="D2F2D2BU2E2U2BLA" "y: 
68660 ZZAS(26)="BDEBR4L4ULE4ULLA" 'Z 
6867 ZZA$(27)="" ‘ <SPACE> 


6@689 RETURN 


characters are to be drawn. The variables ZZX and ZZY 
indicate the horizontal and vertical spacing between char- 
acters. These parameters are set in the initialization sub- 
routine to produce standard text—white, of normal size, 
and printed horizontally from left to right. To change any 
of these characteristics, the program assigns a new value 
to the corresponding parameter. For example, executing 
ZZC=2 before calling the subroutine with GOSUB 69000 
would cause the text to be colored magenta. These param- 
eters retain their values if not explicitly changed. For 
example, if the above example were executed, all charac- 
ters would be drawn in magenta until ZZC was changed 
again. 

The one required parameter to the subroutine is the 
string containing the characters to be put on the screen. 
This string, which we will call the print string, is 
named ZZ$. Whenever a GOSUB 609@@ is executed, the 
character-drawing subroutine attempts to draw whatever 
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is contained in ZZ$. We will now examine the subroutine 
to see how this works. 

Line 60210 is the first line executed. This line sets the 
scaling factor, color, and rotation angle based on the val- 
ues of ZZS, ZZC, and ZZA, respectively. There’s nothing 
tricky here, just a standard DRAW command string using 
variables. 

The FOR. . . NEXT loop across lines 60220 to 60280 
draws each character in the print string in turn. The func- 
tion LEN(ZZ$) returns the length of the print string ZZ$, 
so the values of ZZI, the FOR. . . NEXT variable, are 1, 2, 
3, and so on up to the length of ZZ$. The value of ZZI is 
used to select each of the characters in the print string in 
turn. 

The inner FOR . . . NEXT loop on line 60240 runs 
through each character in turn in the string ZZZS, the ref- 
erence string that we defined in the initialization subrou- 
tine. The MID$ function picks out a substring from a 
string. The first MID$ function on line 60240, in conjunc- 
tion with the inner loop, picks out each character in turn 
from the reference string. The second MID$ function picks 
out the current character (as specified by ZZI) from the 
print string. In effect, the current character from the print 
string is compared to each of the reference characters, 
until a match is found or until all the characters in the ref- 
erence string have been checked. 

If no match is found, the character to be printed is not 
one the program is designed to produce. For example, we 
have not defined any strings for numbers. In this case, line 
60250 informs the user, through a statement on the 
screen, that the character is unavailable, and then termi- 
nates the program. 

If a match is found in reference string ZZZ$, line 60270 
executes the DRAW command string (selected from the 
character array ZZA$) that corresponds to that character. 
For example, if the character B is to be drawn, a match 
will be made between the print string and reference string 
when ZZJ is 2, and the DRAW command string ZZA§$(2) 
will be executed, producing the character B. The second 
part of the DRAW statement on line 60270 moves the last 
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point referenced (the point at which the next character 
will begin to be drawn) over by the distance specified by 
ZZX and ZZY. In the default case, where ZZX is 7 and 
ZZY is O, this means that the next character will be placed 
to the right on the same line. 

All that really occurs on line 60270 is that the character 
to be printed is compared to each character in the refer- 
ence string ZZZ$ to determine which DRAW command 
string stored in the character array ZZA$ should be exe- 
cuted to draw the proper character. Each character in the 
print string ZZ$ is drawn in this manner, as the outer FOR 
. . . NEXT loop selects each of the characters in the print 
string in turn. 


USING THE CHARACTER-GENERATION PACKAGE 


The character-generation package can be inserted into 
any program in the form shown in Listing 13-2. The only 
limitations are that the program can have no other lines in 
the range 60000-60680, and the program should have no 
variable names starting with the letters ZZ. 

Before any characters can be generated, the package 
must be initialized with the statement GOSUB 69300 
Thereafter, all that is needed to generate characters is to 
set the last point referenced to the desired starting point 
for the text, set any parameters we wish to change, store the 
text to be printed in ZZ$, and execute a GOSUB 600@90. 
For example, the program in Listing 13-3 is a simple test 
of the package, merely generating characters under the 
default conditions. 

The real power of the package lies in the optional param- 
eters ZZS, ZZA, ZZC, ZZX, and ZZY. The program shown 
in Listing 13-4 demonstrates the use of each of these 
parameters as shown in Fig. 11 in the color photograph 
section. Enter and run it now. 

Note that this sample program requires less than 20 
lines, apart from the subroutines, to put many forms of 
text on the screen. Now that we have completed the 
character-generation package, text in many colors, loca- 
tions, rotations, and sizes is easy to create. 
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208 
216 


Listing 13-3. Character Generation Package Test. 


REM Simple progran to demonstrate character 
REM generation package. 

REM Set medium resolution mode 

SCREEN 1,@:COLOR 8,1:KEY OFF:CLS 

REM Initialize the character generation subroutine 
GOSUB 693280 

REM Print test message 

ZZS="" IF YOU CAN READ THIS THEN IT WORKS" 
PRESET (19,38) :GOSUB 68989 

LOCATE 24,6:PRINT "PRESS ANY KEY TO CONTINUE"; 
AS=INKEYS$:IF AS="" THEN 288 ELSE CLS 

END 


690008 REM KAKKEKKEEKEKEKKEKEKEEKEKEKKEEEREKE 


6@G1@ REM Character drawing subroutine. 

60820 REM KHKKKKKEERKEKEEREEEREREKEREEREEE 

69038 REM 

69649 REM A "GOSUB 68300" must be performed before the first 
69058 REM time that this routine is used 

62068 REM 

6907 REM Input variables are: 

62288 REM 

62999 REM zz$ —- the character string to be printed 

69196 REM zzs — the scale factor 

69118 REM zza - the angle of the character string 

69126 REM zzc - the color of the character string 

69130 REM zzx — the horizontal distance between the origins 


69148 REM of adjacent characters 
69158 REM azzy —- the vertical distance between characters 
69160 REM 


69179 REM The origin of a string is in the upper left corner 
69189 REM The screen position is the "last point referenced" 
69198 REM and can be set easily with a PRESET(x,y) 


69299 REM 
69219 DRAW "s=zzS;c=zzc;a=zza;" 'Set scale,color and angle 
69228 FOR ZZI=1 TO LEN(ZZS$) ' for each character 


69230 REM Locate the character in the reference string 
60249 FOR ZZJ=1 TO LEN(ZZZ$):IF MID$(ZZZ$,22J,1)= 


MID$(ZZ$,ZZI,1) GOTO 69269 ELSE NEXT Z2ZJ 


68256 PRINT "CHARACTER, ";MID$(ZZ$,ZZ1,1); 


"IS NOT AVAILABLE ":END 


69268 REM Draw the character and position for next character 
60270 DRAW ZZAS$(ZZJ)+"br=zzx;bd=zzy;" 

68288 NEXT ZZ1 

69298 RETURN 

6839G REM HHH KK AKI KIRKE EKER EERE ERR REREREERRERK 

69319 REM Set reference and character strings. 

69320 REM This subroutine initalizes the character 

69338 REM generation package--it should be called 

69348 REM just once before the first call to the 


68358 REM character drawing subroutine. 
69360 REM FHKE KIKI EEK ERE EERE EEERERERRERERERE 
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Listing 13-3—cont. Character Generation Package Test. 


60378 DIM ZZAS(27) :ZZA=0:ZZC=3: ZZS=4 : ZZX=7 : ZZY=O 

60380 REM ZZZ$ is a reference string used to find the print char 
69398 ZZZ$="ABCDEFGHIJKLMNOPQRSTUVWXYZ " 

69400 REM Each of the strings below is used to define 

69418 ZZA$(1)="BD1D5BU2R4BD2U5H1LL2G1BU1" 'A 

68429 ZZAS$(2)="D6R3E1U1H1LL3BR3E1U1H1L3" 'B 

60438 ZZAS(3)="BD1LD4F1R2E1BU4H1L2G1BU" *C 


68448 ZZAS(4)="D6R3E1U4H1L3" 'D 

69458 ZZAS(5)="D6R4BU3BLLL3BU3R4BL4" 'E 
68469 ZZAS(6)="D6BU3R3BL3U3R4BL4" 'F 
60478 ZZAS(7)="BD1D4F1R3U3L1BU3BRILL3G1BUL" 'G 
68489 ZZAS(8)="D6BU3R4BD3U6BL4" 'H 

69498 ZZAS(9)="BD6BRIR2BL1U6BRLL2BL1" ak 
68589 ZZAS(19)="BD5F1R1E1U5BL3" ‘J 
68518 ZZAS(11)="D6BU3RLF3BU6G3L1BU3" 'K 
6528 ZZA$(12)="D6R4BL4BU6" "hh 
68530 ZZAS$(13)="D6BR4U6G2H2" 'M 
69548 ZZAS$(14)="D6BR4U6BD4H4" 'N 
68558 ZZAS(15)="BD1D4F1R2E1U4H1L2G1BU1" 'O 
69568 ZZAS(16)="D6BU3R3E1U1H1L3" 'p 
69578 ZZAS(17)="BD1D4F1R1BR2H2BF1BG1E2U3H1L2G1BU1" 
60588 ZZAS(18)="D6BR4H3BL1R3E1U1H1L3" 'R 
69598 ZZAS(19)="BD6R3E1U1HIL2H1ULE1LR3BIA" 'S 
69628 ZZAS(28)="BD6BR2U6BR2L4" 'T 
68619 ZZAS(21)="D5F1R3E1U5BL4" 'U 
69628 ZZAS(22)="D3F1D1F1E1U1E1U3BL4" 'V 
69630 ZZAS(23)="D5FLELULBDIF1LELU5SBL4" 'W 
69648 ZZAS(24)="BD6U1E4ULBD6U1H4U1" "% 
69658 ZZAS (25)="D2F2D2BU2E2U2BL4" ay, 
68669 ZZAS(26)="BD6BR4LA4U1LE4U1LLA" ‘%, 
68678 ZZAS(27)="" ' <SPACE> 
69689 RETURN 


The sample program initializes the character-generation 
package on line 150. 

Line 160 defines the first print string, “THIS DEMON- 
STRATES THE GREAT FLEXIBILITY”. Line 170 uses the 
PRESET statement to set the point at which the text will 
begin to (10,5). (The M subcommand to DRAW, prefixed 
with the B subcommand, also could have been used.) Line 
170 then calls the character-drawing subroutine to put 
the specified text on the screen, starting at the last point 
referenced, which is (10,5). The text is white, unrotated, 
and of normal size, because the default values of parame- 
ters ZZC, ZZA, and ZZS have not been changed. 
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Listing 13-4. Character-Generation Package. 


REM Demo program for character generation subroutine. 

REM 

REM Set medium resolution mode 

SCREEN 1,%:COLOR %,1:KEY OFF:CLS 

REM Initialize the character generation subroutine 

GOSUB 69380 

ZZS="THLIS DEMONSTRATES THE GREAT FLEXIBILITY" 
PRESET(19,5) :GOSUB 68200 

ZZS="0F THE DRAW COMMAND" 

PRESET(15,15):GOSUB 68808 

ZZ$="IT ALLOWS SCALING" 

PRESET (20,25) :ZZS=8:GOSUB 62008 

ZZS="AND CHANGING COLORS" 

PRESET (38,45) :ZZC=1:GOSUB 6@080:PRESET(31,45):GOSUB 68820 
ZZS$="EVEN ROTATIONS" 

ZZC=2:PRESET (259,75) :ZZA=2:GOSUB 6Q000:PRESET(251,75): 
GOSUB 68280 

ZZS="ALSO ALLOWS VARIABLE RELATIVE MOVES" 

PRESET (25,65) :ZZA=0:ZZS=4:ZZY=3:GOSUB 600@0:PRESET (26,65): 
GOSUB 68828 


LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
AS=INKEYS$:IF AS="" THEN 2908 ELSE CLS 
END 


62800 REM KEKIKKEKREKEREKEEREEREREEEREREK 


6018 REM Character drawing subroutine. 

6802B REM KEKKKKEKRKEEEKEEREEEKRERERREREKER 

60930 REM 

68948 REM A "GOSUB 6030" must be performed before the first 
68059 REM time that this routine is used 

608698 REM 

69078 REM Input variables are: 


60098 REM zzS —- the character string to be printed 

69180 REM zzs — the scale factor 

68119 REM zza —- the angle of the character string 

60128 REM zzc —- the color of the character string 

68138 REM zzx - the horizontal distance between the origins 


6G149 REM of adjacent characters 
69150 REM zzy — the vertical distance between characters 
69169 REM 


68178 REM The origin of a string is in the upper left corner 
6180 REM The screen position is the "last point referenced" 
60198 REM and can be set easily with a PRESET(x,y) 


66280 REM 
60219 DRAW "s=zzs;c=zzc;a=zza;" 'Set scale,color and angle 
68229 FOR ZZI=1 TO LEN(ZZ$) ‘for each character 


60232 REM Locate the character in the reference string 
60249 FOR ZZJ=1 TO LEN(22ZZ$):IF MID$(ZZZ$,2ZZJ,1)= 


MIDS$(ZZ$,ZZ1I,1) GOTO 69268 ELSE NEXT ZZJ 


69258 PRINT "CHARACTER, ";MID$(ZZ$,ZZI,1); 


“ IS NOT AVAILABLE ":END 
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Listing 13-4—cont. Character-Generation Package. 


69268 REM Draw the character and position for next character 
60278 DRAW ZZAS(ZZJ)+"br=zzx;bd=zzy;" 

60288 NEXT ZZI 

68298 RETURN 

68396 REM PRICK ERIK EERE EREREREREREEERKREREERERERKEKEK 

69316 REM Set reference and character strings. 

69329 REM This subroutine initalizes the character 

60338 REM generation package—it should be called 

69349 REM just once before the first cali to the 

60359 REM character drawing subroutine. 

GD36D REM FERRARA AKER EKER KEEREREERREEERERERERER 

68379 DIM ZZAS (27) :ZZA=0:ZZC=3 :ZZS=4 : ZZX=7 : ZZY=0 

60389 REM ZZZ$ is a reference string used to find the print char 
69390 ZZZS="ABCDEFGHIJKLMNOPQRSTUVWXYZ " 

69499 REM Each of the strings below is used to define 

69418 ZZAS$(1)="BD1D5BU2R4BD2U5H1LL2G1BU1" 'A 

60426 ZZAS(2)="D6R3E1U1H1L3BR3E1U1H1L3" ‘B 

68439 ZZA$(3)="BD1D4F1R2E1BU4H1L2G1BU" ‘Sc 


69449 ZZAS(4)="D6R3E1U4H1L3" 'D 

60458 ZZAS(5)="D6R4BU3BL1L3BU3R4BL4" 'E 
68468 ZZAS(6)="D6BU3R3BL3U3R4BL4" . 
69478 ZZAS(7)="BD1D4F1R3U3L1BU3BRIL3G1BUL" 'G 
69488 ZZAS(8)="D6BU3R4BD3U6BLA" 'H 

69499 ZZAS(9)="BD6BRLR2BL1U6BRIL2BL1" p 
69528 ZZAS(18)="BD5F1R1E1U5BL3" “J, 
60518 ZZA$(11)="D6BU3R1F3BU6G3L1BU3" ‘Kk 
69528 ZZAS(12)="D6R4BL4BU6" 'L 
69538 ZZAS(13)="D6BR4U6G2H2" ' 
69549 ZZAS(14)="D6BR4U6BD4H4" 'N 
69558 ZZA$(15)="BD1D4F1R2E1U4H1L2G1BUL" 'O 
69568 ZZAS(16)="D6BU3R3E1U1H1L3" 'p 
69579 ZZAS(17)="BD1D4F1R1BR2H2BF1BG1LE2U3H1L2G1BU1" 
60588 ZZAS(18)="D6BR4H3BL1R3E1U1HLL3" 'R 
69599 ZZAS$(19)="BD6R3E1ULH1L2H1U1E1LR3BL4" 'S 
69680 ZZAS (28)="BD6BR2U6BR21A" up 
69619 ZZAS(21)="D5F1R3E1U5BLA" ‘Vg 
60628 ZZAS$(22)="D3F1D1F1E1U1E1U3BLA" 'V 
69630 ZZAS(23)="D5F1E1U1BD1F1LE1U5BIA" 'W 
69648 ZZAS(24)="BD6ULE4ULBD6U1H4U1" rd 
68650 ZZAS(25)="D2F2D2BU2E2U2BLA" Bg 
69668 ZZAS(26)="BD6BR4L4U1E4U1LA" “9; 
69678 ZZAS$(27)="" ' <SPACE> 
69688 RETURN 


Lines 180 and 190 put additional text on the screen, 
with the same characteristics as the first text displayed. 
Here the PRESET statement sets the text starting location 
to (15,15) below and to the right of the first text. 
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Line 210 sets ZZS, the scaling factor, to 8. As you will 
recall from our description of DRAW, this means text will 
be double-sized. Indeed, the string "IT ALLOWS 
SCALING" is enlarged. A statement such as ZZS=8 is all 
that is ever required to change the scaling factor. The new 
scaling factor remains in effect until changed. 

Line 230 sets ZZC to 1. This means that text will be 
drawn in cyan. Note that we execute two GOSUB 60000 
statements on line 230, the second offset by one column 
from the first. This is because single colored pixels do not 
show up well on many displays. The two executions of the 
character-drawing subroutine cause double-width charac- 
ters to be drawn. Because we haven’t changed ZZS since 
we set it to 8, these characters are enlarged. 

Line 250 sets ZZC to 2, so that magenta text will be pro- 
duced. ZZA is set to 2; all DRAW subcommands will oper- 
ate at 180 degrees from normal. Thus, the text is drawn 
upside-down and right to left. Sideways text, reading bot- 
tom to top or top to bottom, would be as easy to produce 
with ZZA values of 1 or 3. Again, we execute the drawing 
routine twice, with an offset of one column, so that the col- 
ored text will show up well. 

Finally, line 270 sets the angle back to unrotated, the 
scaling back to normal, and ZZY, the vertical offset 
between adjacent characters, to 3. This causes the text to 
descend as it prints from left to right, so that a slanting 
line of text is produced. PRESET, ZZA, ZZX, and ZZY can 
be combined to produce letters in any of four rotations 
anywhere on the screen and following one another in vir- 
tually any pattern. 


INSERTING THE PACKAGE IN YOUR PROGRAMS 


The easiest way to insert the character-generation pack- 
age into another program is with the MERGE command. 
First, type both subroutines as shown in Listing 13-2. 
Then, save the program lines to disk with the command 
SAVE "'CHARGEN",A. The trailing A is required. Then 
the package can be inserted into any program by simply 
typing MERGE ''CHARGEN". 
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For example, type: 
NEW and press Enter 


to clear memory, type the lines shown in Listing 13-2, and 
save the character-generation code by typing: 


SAVE ''CHARGEN'',A and press Enter 
Then type: 
NEW and press Enter 


to clear memory again; this simulates leaving BASIC and 
restarting it at a later time. Type only the lines in Listing 
13-3 with numbers lower than 60000 and type: 


MERGE ''CHARGEN" and press Enter 


The LIST command shows that the program is com- 
plete. 


Note: If your program has any lines numbered 
60000-60680 as in the character-generation package, 
they will be wiped out and replaced by the package 
when the MERGE command is executed. 


SUMMARY OF THE CHARACTER-GENERATION PACKAGE 


We have designed a character-generation package that 
overcomes the problems of the BASIC PRINT statement 
and which is flexible and easy to use. It is possible to 
design such a useful and compact package only because of 
the power of DRAW. 

We have designed this package to be completely func- 
tional and ready to use. This does not mean that there are 
not enhancements you might make. The character set 
could be expanded to include lowercase and special char- 
acters. Other fonts, such as italic, gothic, and mathemati- 
cal notation, could be designed. An ambitious but useful 
project would be to make the package capable of produc- 
ing any of several fonts as selected by the main program. 
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The great virtue of this is that once it was designed and 
working properly, you would need only include the pack- 
age in your graphing, text processing, and game programs 
to have any of a number of character types, sizes, colors, 
and rotations available anywhere on the screen. 
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HIGH-RESOLUTION GRAPHICS 
MODE 


High-resolution graphics mode allows the finest detail pos- 
sible on the IBM PC. In this mode, the screen consists of 
640 columns by 200 rows of dots. Each of these dots, how- 
ever, can be only black or white; this is the ‘‘trade-off”’ for 
the excellent detail available. Functionally, high-resolu- 
tion mode is similar to medium-resolution mode, except 
that every inch across the screen contains twice as many 
dots, and there is no color. Because twice as many pixels 
are required to draw the same figure, high-resolution 
graphics mode commands are slower than their medium- 
resolution graphics mode counterparts. 

High-resolution mode is ideal for detailed graphics of 
any kind, such as graphing, mapping, and games, as long 
as the application does not require color. (There are two 
distinct ways to produce some color in high-resolution 
graphics mode; neither of these is supported by BASIC, 
and neither is particularly easy to use. Color in high-reso- 
lution mode will be covered in Chapter 19.) 

Because every graphics command available in medium- 
resolution graphics mode works similarly in high-resolu- 
tion graphics mode, we will not cover these commands in 
detail here. Rather, we will describe only those features of 
each command unique to high-resolution mode and will 
provide an example of each command. 

One point to be made is that an RGB monitor is required 
to display high-resolution graphics properly. In particular, 
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text in high-resolution mode, which is displayed 80 col- 
umns across the screen, is not usually legible on a televi- 
sion or color composite monitor. Because of this, in each of 
the sample programs, we first demonstrate the command, 
wait for a key to be pressed, then restore the screen to 40- 
column mode to ensure legibility. 


HIGH RESOLUTION MODE 


First, we must get into high-resolution mode. Start BASIC 
and type: 


SCREEN 2 and press Enter 


This selects high-resolution graphics mode. None of the 
other parameters to the SCREEN statement have any use 
when high resolution is selected with a mode of 2; multiple 
screens are not allowed, and because only black and white 
are available, the value for the burst parameter is irrele- 
vant. 

It follows that the COLOR statement is also irrelevant in 
high-resolution graphics mode. On the other hand, CLS 
and KEY OFF work as usual. 

Black and white are the only colors available in high-res- 
olution mode. White is the foreground (color 1), and black 
is the background (color @). For compatability with 
medium-resolution mode, color 2 is also black and color 3 
is also white. In medium-resolution mode the default (fore- 
ground) color for the graphics statements is color 3, while 
in high-resolution mode the default color is color 1, white. 
Thus, PSET (10@,1@@) plots a white dot at (199,100), and 
PRESET (19@,1®) plots a black dot, erasing the first. 

The high-resolution graphics screen is 640 columns by 
200 rows with the upper-left corner considered coordinate 
(9,0) and the lower-right corner (639,199). Both absolute 
and relative screen addressing modes can be used. 


PSET 


The PSET statement is the same in high-resolution mode 
as in medium-resolution mode except, of course, only the 
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colors black and white are available. For example, clear 
the screen in high-resolution mode and type: 


PSET (328,199) and press Enter 


to place a white dot at the center of the screen. 

PSET in high-resolution mode differs from the medium- 
resolution mode version in one respect. In high-resolution 
mode, x values that are off the right edge of the screen 
(greater than 639) are not plotted; in medium-resolution 
mode, values off the right of the screen (greater than 319) 
wrap around to the left margin and appear on the screen. 

The program in Listing 14-1 demonstrates the PSET 
statement in high-resolution graphics mode. 


Listing 14-1. PSET Statement in High-Resolution Mode. 


108 REM Program to demonstrate the PSET statement in 
118 REM high-resolution mode. 

12@ SCREEN 2:KEY OFF:CLS ‘Set hi-res screen 
139 REM Diagonal line down & right 

148 FOR I=5@ TO 158 

156 PSET(I,1) 

16@ NEXT I 

178 REM Diagonal line up & right 

188 FOR I=58 TO 158 

198 PSET(1*2+50, 200-1) 

200 NEXT I 

218 LOCATE 24,27:PRINT "PRESS ANY KEY TO CONTINUE"; 
220 AS=INKEY$:IF AS=""" THEN 220 

238 SCREEN 9,1:WIDTH 49 ‘Reset screen 

248 END 


POINT 


The POINT function in high-resolution mode returns 
either @ (black) or 1 (white) for the color of the pixel 
checked. 

The program in Listing 14-2 demonstrates the POINT 
function in high-resolution graphics mode. 


LINE 


The LINE statement in high-resolution mode is the same 
as in medium-resolution mode, with the exception of one 
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Listing 14-2. POINT Function in High-Resolution Mode. 


180 REM Program to demonstrate the POINT function in 
119 REM high-resolution mode. 

128 SCREEN 2:KEY OFF:CLS ‘Set hi-res screen 
138 REM Draw vertical line 

148 FOR I=58 TO 158 

15 PSET (30,1) 

168 NEXT I 

179 REM Starting in colum 59, draw a line to the right 
186 REM until it hits the first line 

198 COLUMN=5 

280 COLUMN=COLUMN+1 

216 IF POINT (COLUMN,100)<>@ THEN 249 

228 PSET(COLUMN, 180) : PRESET (COLUMN-1, 129) 

238 GOTO 200 

248 LOCATE 24,27:PRINT "PRESS ANY KEY TO CONTINUE"; 
259 AS=INKEYS$:IF AS="" THEN 258 

268 SCREEN @,1:WIDTH 48 ‘Reset screen 

278 END 


error-handling characteristic. In medium-resolution mode, 
x values greater than 319, which are off the screen, wrap 
to the next line; in high-resolution mode, x values off the 
screen (greater than 639) are treated as 639. 

Listing 14-3 demonstrates the LINE statement in high- 
resolution mode. 


Listing 14-3. Line Statement in High-Resolution Mode. 


108 REM Program to demonstrate the LINE statement in 
118 REM high-resolution mode. 

128 SCREEN 2:KEY OFF:CLS ‘Set hi-res screen 
138 REM Draw right-angle lines 

149 LINE (19,58)-(19,120) 

158 LINE (10,190)-STEP(629,) 

16 LINE (19,58)-(158,180) 

17 REM Draw angled lines down to the base line 
189 LINE (19,58)-(380,100) 

199 LINE (19,58)-(450,100) 

208 LINE (18,58)-(639,100) 

219 REM Draw a box 

228 LINE (19,119)-STEP(169,80),,B 

238 REM Draw a solid box 

249 LINE (349,138)-(469,179),,BF 

250 LOCATE 24,27:PRINT "PRESS ANY KEY TO CONTINUE"; 
268 AS=INKEY$:IF AS=""" THEN 269 

279 SCREEN %,1:WIDTH 49 "Reset screen 

288 END 
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CIRCLE 


Using the CIRCLE statement in high-resolution mode is 
only slightly different from using the statement in 
medium-resolution mode. 

First, to produce the same images, all aspect ratios in 
high-resolution mode should be only half the value of 
those used in medium-resolution mode. The default aspect 
ratio in high-resolution mode, for example, is 5/12, rather 
than the 5/6 default of medium-resolution mode. In high- 
resolution mode, an aspect ratio of 5/12 produces a circle. 

Second, it takes significantly longer to draw a circle of a 
given size in high-resolution mode than it does in 
medium-resolution mode. Because CIRCLE is a fairly 
slow-acting statement, this can be a major consideration. 

Finally, although circles drawn in high-resolution mode 
can be colored black and white only, the edges are less jag- 
ged than their medium-resolution counterparts. This can 
be especially important because CIRCLE produces jagged 
edges, most noticeably with aspect ratios not equal to one. 

When running the demonstration program in Listing 
14-4, notice the smooth lines in the concentric ellipses. 


Listing 14-4. CIRCLE Statement in High-Resolution 
Mode. 


109 REM Program to demonstrate the CIRCLE statement 
118 REM in high-resolution graphics mode. 

128 SCREEN 2:KEY OFF:CLS "Set hi-res screen 
13@ REM Draw concentric ellipses 

140 FOR RADIUS=1% TO 25@ STEP 15 

1586 CIRCLE(328,100),RADIUS,1,,,-3 

168 NEXT RADIUS 

17@ LOCATE 24,28:PRINT "PRESS ANY KEY TO CONTINUE"; 
188 AS=INKEYS$:IF AS="" THEN 180 

196 SCREEN 9,1:WIDTH 40 ‘Reset screen 

208 END 


PAINT 


The PAINT statement in high-resolution mode is PAINT 
(x,y),paint where x and y are the coordinates of the start- 
ing point and paint is equal to 9 or 1 to PAINT in black or 
white. There is no sense in specifying a boundary color, as 
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we do in medium-resolution mode; because there are only 
two colors, boundary must be the same as paint. 

Like the CIRCLE statement, the PAINT statement is 
fairly slow and takes longer to execute in high-resolution 
mode than in medium-resolution mode. 

The PAINT statement is used in the program shown in 
Listing 14-5, which demonstrates the GET and PUT state- 
ments in high-resolution mode. 


GET And PUT 


The GET and PUT statements are different in high-resolu- 
tion mode only in the required size of the array that stores 
the image. In high-resolution mode, the formula that will 
roughly calculate the required size of the integer array 
that stores the image, while leaving a little extra space to 
be safe, is INT((x/16)+1)*y+2. (See Chapter 10 for defini- 
tions of x andy.) For a more exact formula,see the BASIC 
manual, but, unless you are constrained for space, the 
rough formula will serve perfectly well. 

The program in Listing 14-5 demonstrates the GET and 
PUT statements in high-resolution mode. 


DRAW 


The DRAW statement works in the same fashion in high- 
resolution mode as in medium-resolution mode, except 
the horizontal distance covered by a given number of 
pixels is halved and only colors O and 1 are available. 
Remember that the A subcommand to the DRAW state- 
ment corrects for aspect ratio in medium-resolution mode 
when a figure is rotated 90 or 270 degrees. The A subcom- 
mand also corrects for aspect ratio in high-resolution 
mode, but the correction factor is different. Because the 
aspect ratio of the high-resolution screen is 5/12, a ratio of 
12/5 is used for correction when the figure is rotated. For ex- 
ample, clear the screen in high-resolution mode and type: 


AS=""U58 R128 D59 Li26'' and press Enter 


to set the figure for what will appear to be a square in 
high-resolution mode, and then type: 


DRAW "'AG''+AS and press Enter 
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Listing 14-5. GET and PUT Statements in High-Resolu- 
tion Mode. 


108 REM Program to demonstrate the GET and PUT graphics 
119 REM statements in high-resolution graphics mode. 
128 SCREEN 2:KEY OFF:CLS ‘Set hi-res screen 
138 DIM BALL(129) 

14 REM Draw and save ball image 

15@ CIRCLE (2,2),2 

168 PAINT STEP(@,9) 

178 GET (9,9)-(4,4),BALL 

1388 CLS 

198 REM Draw barriers 

200 LINE (208,18)-(219,100),,BF 

2108 LINE (400,10)-(419,100),,BF 

228 REM Set initial location & direction 

238 BX=300:BDIR=-2 

248 REM Put ball on screen at initial location 

258 PUT (BX,5@),BALL 

26@ REM Move the bouncing ball 308 times 

276 FOR I=l TO 300 

286 BXOLD=BX 

298 REM Trial move ball 

388  BX=BX+BDIR 

318 REM If hit barrier, reverse direction 

326 IF POINT(BX+2,58)<>@ THEN BDIR=-BDIR:BX=BX+2*BDIR 
338 REM Old ball off 

349 PUT (BXOLD,5@),BALL 

359 REM New ball on 

369 PUT (BX,58),BALL 

378 NEXT I 

388 LOCATE 24,27:PRINT "PRESS ANY KEY TO CONTINUE"; 
398 AS=INKEYS:IF AS="" THEN 399 

496 SCREEN 9,1:WIDTH 40 ‘Reset screen 

419 END 


DRAW "'Ai''+AS and press Enter 
DRAW "'A2"'+AS and press Enter 
DRAW ''A3''+A$ and press Enter 


to rotate the square O, 90, 180, and 270 degrees. Note that 
all rotations are corrected so the figure still appears to be a 
square. 

The program shown in Listing 14-6 demonstrates the 
DRAW statement in high-resolution mode. 


HIGH RESOLUTION VERSUS MEDIUM RESOLUTION 


On some other computers, high-resolution mode is the 
graphics mode, the mode in which all the best displays are 
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Listing 14-6. DRAW Statement in High-Resolution 
Mode. 


180 REM Program to demonstrate the DRAW statement in 
118 REM high-resolution mode. 

126 SCREEN 2:KEY OFF:CLS ‘Set hi-res screen 
138 REM Define rectangle 

149 RECTS="u38 r15 d3@ 115" 

159 REM Draw rectangle in all four rotations 

‘168 FOR I=@ TO 3 


176 = =COL=1*150+5d ‘Select column to draw box at 
188 DRAW “bmecol;,100 a=i; x rect$;" 
198 NEXT I 


288 LOCATE 24,27:PRINT "PRESS ANY KEY TO CONTINUE"; 
219 AS=INKEYS:IF AS="" THEN 219 

229 SCREEN 9,1:WIDTH 49 ‘Reset screen 

238 END 


produced. This is not true on the IBM PC. High-resolution 
mode has the most detailed picture, but, by and large, 
high-resolution mode is not particularly different from 
medium-resolution mode. If you need detail and have a 
good display, high-resolution mode is the best choice. 
High-resolution mode is also the only way to display 80- 
column text easily while in graphics mode. 

On the other hand, medium-resolution mode displays 
better on televisions and composite monitors, is faster, 
and has the advantage of color. 

The choice between the two modes is often dictated by 
the application. When it is not, the two modes are not so 
different that the choice is critical. 
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A FUNCTION-GRAPHING 
PROGRAM 


One of the best applications of high-resolution graphics 
mode is the plotting of detailed graphs. High-resolution 
mode allows a maximum number of points to be put on 
the screen so that smooth-edged graphs can be produced. 
In this chapter, we will develop a program that leads the 
user through the process of generating a high-resolution 
graph of a mathematical function. 


A GRAPHING PACKAGE 


Our graphing package plots a function on the high-resolu- 
tion graphics screen. A function is a mathematical for- 
mula which for every value of x produces one and only one 
value of y. The range of x values is provided by the user. 
The x and y values, in conjunction with scales that cover 
the range of x and y, describe the points to be plotted on 
the graph. For example, y=x*3 is a function, where an x 
of 10 produces a y of 30, and so on. If we plotted a number 
of values of x and y, we would produce a graph like that 
shown in Fig. 15-1. 

Our goal is to write a program that will plot a function. 
The user will select appropriate labels for the graph and 
the x and y axes and will specify a range of x values. The 
program will calculate the y values that correspond to the 
x values, will scale the y axis based on the calculations, 
and will plot each of the x,y pairs, producing a detailed 


179 


Graphics for the IBM PC 


= 
ORAAMANADSE 


ie2e344.5 6 728 °9:10 
es 


Fig. 15-1. Function Y=X*3. 


graph of the function. The function will be integral to the 
program; that is, the user will only be able to change the 
function by changing a line in the program. The function 
used will be the sine function, a trigonometric function 
that produces a smoothly curved plot. The BASIC function 
which returns the sine of x is SIN(x). 


THE PROGRAM 


The graphing program is shown in Listing 15-1. Enter and 
run the program now, so you can get a feel for how it oper- 
ates. While the program may look a bit long to type, many 
of the lines are REM statements which you can omit. Good 
minimum and maximum values for x are @ and 6.28, 
respectively. A good title is “SINE PLOT.” The x and y 
axes can be titled ““X’’ and ““SINE(X)’’, respectively. 

Note the smooth curve produced. Also note that the y 
axis is scaled to match the function; sine is always in the 
range —1 to 1, and the y axis is scaled accordingly. 
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Listing 15-1. Plot Specified Function in High- 
Resolution Mode. 


REM Program to plot a specified function in 
REM high-resolution mode. 
REM Variables starting with I-L are integers 
DEFINT I-L 
REM Set high-resolution screen 
SCREEN 2:KEY OFF:CLS 
REM Prompt for labels 
INPUT “Label for Graph? (max 78 letters) ",GS: 
GS=LEFTS$ (G$, 78) 
INPUT "Label for X axis? (max 45 letters) ",XS$: 
XS=LEFTS (X$, 45) 
INPUT "Label for Y axis? (max 8 letters) ",YS: 
YS=LEFTS$ (Y$, 8) 
REM Prompt for range of x values 
INPUT "Minimum X value (-18000 to 18000)? ",MINX 
IF MINX<-19088 OR MINX>1@@@@ THEN 210 
INPUT "Maximum X value (-19@00 to 19000)? ",MAXX 
IF MAXX<-192008 OR MAXX>1@@@@ THEN 230 
REM Remove dialogue from screen 
CLS 
REM Print labels, centered 
LOCATE 3, (8@-LEN(GS) )/2:PRINT GS 
LOCATE 21, (5Q-LEN(X$) )/2+21:PRINT X$ 
LOCATE 11,1:PRINT YS 
REM Put axes on screen. Y axis is double width 
REM to show well on poor-quality displays 
LINE (154,36)-(155,136),,B:LINE -(554,136) 
REM Draw hatch marks on axes 
FOR I=@ TO 9 
REM Hatch marks on y axis 
LINE (152,36+10*1I)-STEP(5,9) 
REM Hatch marks on x axis, doubled to show up well 
LINE (554-49*1,135)-STEP(1,2),,B 
NEXT I 
LOCATE 24,25:PRINT "PLEASE WAIT...I'M CALCULATING"; 
REM Calculate full set of y data points. All must be 
REM calculated before plotting so that program can 
REM automatically handle the range for the y scale 
REM DATAPNT holds all y values 
DIM DATAPNT (480) 
REM Set min and max y so that any value will replace them 
MINY=1. 7E+38 
MAXY=-1 . 7E+38 
REM We will plot 481 points-—figure x increment 
REM = for one point 
XINC= (MAXX-MINX) /48@ 1 
REM Calculate all y values, store, and determine 
REM sy max and min 
FOR I=@ TO 480 
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Listing 15-1—cont. Plot Specified Function In High- 


859 


916 


Resolution Mode. 


REM Determine x value for data point # I, based on XINC, 
REM then use subroutine at line 478 to calc y value 
XVALUE=MINX+1*XINC:GOSUB 9@@:DATAPNT (I )=YVALUE 

REM Check for max & min 

IF YVALUE>MAXY THEN MAXY=YVALUE 


REM Print scales on corresponding axes. MINX and MAXX 
REM were input by the user 
LOCATE 5,5:PRINT "Max ";:PRINT USING "######. ###" ;MAXY 
LOCATE 17,5:PRINT "Min ";:PRINT USING "######.###" ;MINY 
LOCATE 19,15:PRINT "Min ";:PRINT USING "######. ###" ; MINX 
LOCATE 19,65:PRINT "Max ";:PRINT USING "######.###" ;MAXX 
REM YINC is number of y units each pixel represents 
YINC=(MAXY-MINY) /1891 
REM Loop to plot points 
FOR I= TO 400 
REM Figure how many pixels up from x axis to plot 
REM Special case-if MAXY=MINY, then always plot 
REM 598 pixels up 
IF YINC<>9 THEN HEIGHTINPIXELS=(DATAPNT(I)-MINY) /YINC 
ELSE HEIGHTINPIXELS=5¢ 
REM Plot point. First time, simply plot dot, thereafter, 
REM draw a line from last point to current point 
IF I<>Q THEN LINE -(155+1,136-HEIGHTINPIXELS) ELSE 
PSET(155+I, 136-HEIGHTINPIXELS ) 
NEXT I 
REM Clear any keystrokes, so user doesn't end by accident 
IF INKEYS$<>"" THEN 829 
REM Wait for a keystroke before ending, so can admire 
LOCATE 24,25:PRINT " PRESS ANY KEY TO CONTINUE "; 
AS=INKEY$:IF AS="" GOTO 859 
SCREEN 9,1:WIDTH 49 "Reset the screen 
END 
REM Subroutine to calculate YVALUE given XVALUE 
REM Change line 878 to change function 
YVALUE=SIN (XVALUE) 
RETURN 


We will now cover the program a line at a time. One gen- 
eral point to be made is that very little of the program pro- 
duces graphics; most of the lines handle text input and 
output or perform mathematical calculations in support of 
the graphics. This is usually true in graphics work. Plot- 
ting a point is easy—knowing where to plot the point is 
the hard part! 
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Setting Up 


Line 130 defines all variables starting with the letters I 
through L as integers. This means that I will be an integer, 
while MAXX will be a real number. We will use integers 
where possible because BASIC processes them faster than 
real numbers, but, because some of our calculations 
involve fractional numbers, we cannot use integers for 
everything. 

Line 150 initializes the high-resolution graphics screen 
by selecting high-resolution mode, turning off the soft 
keys, and clearing the screen. 


User Input 


We need several pieces of information from the user. Lines 
170-190 prompt the user for the labels for the graph, x 
axis, and y axis. These labels will appear on the final 
screen, so the display can be identified and interpreted 
readily. 

Lines 210 and 230 prompt the user for the range of x 
values to be plotted. The graph is always the same size in 
pixels, 101 rows by 401 columns. The computer converts 
the user-specified range of x-values so it can draw the 
graph using 401 horizontal pixels. In later lines, the pro- 
gram will automatically compensate for the selected x 
values. 

Line 260 clears the prompts and user input from the 
screen, so we can begin plotting the graph. 


Setting up the Axes 


The first step in drawing the graph is to lay out and label 
the axes. We will always place the axes and labels in the 
same places, except that the labels are moved as needed to 
center them. 

Line 280 prints the label for the graph, centered 
between the left and right margins of the screen. The 
LEN(G$) function returns the length of the string G§, 
which holds the title, so that (80-LEN(G$))/2 calculates the 
column in which the label should start so as to be cen- 
tered. (Remember that in high-resolution mode there are 
80 columns of text across the screen.) Line 290 prints the 
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label for the x axis, similarly centered between columns 
21 and 71. This is offset so the label will appear centered 
with respect to the x axis. Line 300 prints the label for the 
y axis. This label is not centered, but is started as far left 
as possible to leave the maximum amount of space avail- 
able for text between the start of the label and the y axis. 

Line 330 puts the x and y axes on the screen. The first 
LINE statement draws the y axis from row 36 down to row 
136, and in columns 154 and 155, by drawing a box with 
corners (154,36) and (155,136). The doubled line is neces- 
sary so vertical lines will show as brightly as horizontal 
lines, particularly on poor-quality displays. The second 
LINE statement on line 330 draws the x axis from the 
lower end of the y axis to (554,136), so the x axis is 400 
pixels long plus the point where it intersects the y axis. 
The x axis is drawn as a single, rather than double, line 
because it is horizontal. 

The FOR. . . NEXT loop from lines 350 to 400 draws 
crosshatch marks on the x and y axes, dividing each of 
these axes into 10 equal parts. Line 370 draws 10 
crosshatches 6 pixels long across the y axis, starting at 
row 36 (the top of the y axis), then row 46, 56, and so on 
down to 126. Line 390 draws 10 crosshatches 3 pixels 
long across the x axis, starting at column 554 (the end of 
the x axis), then column 514, and so on down to column 
194. As with the y axis and all other vertical lines drawn, 
the vertical crosshatches are double width so they will 
show up well on all types of displays. 


Evaluating the Function 


We must calculate each value for y to determine the range 
of y values in order to scale the y axis. Because the 
required 401 calculations (one for each column on the 
graph) take a considerable period of time, we will also save 
the calculated values while determining the range. In this 
way we can perform two functions at once: scaling the y 
axis and calculating the set of y values. 

We will store the 401 y values in the array DATAPNT, 
which has 401 storage locations set aside on line 460. 
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To determine the minimum and maximum y values, we 
first set the variables MINY and MAXY to very high and 
very low values, respectively, on lines 480 and 490. Then, 
any lower or higher value (for MINY and MAXY, respec- 
tively) we calculate will become the new minimum or 
maximum. The initial values are selected so the first value 
will replace them. This means that after processing one 
value that value is both the minimum and the maximum. 
Succeeding values will alter MINY and MAXY so the final 
values for these variables will indeed be the minimum and 
maximum values for y. 

There will be 401 x values plotted, one for each column 
on our graph. We will divide evenly the range of x into 401 
points, then use each of these 401 points to calculate the 
corresponding y value. Line 520 calculates how many x 
units there are between each horizontal pixel and stores 
this value in XINC. For example, if the range of x were 
from 100 to 900, or 800 units, then XINC would be 2. We 
have the initial column at the y axis, which would have 
the x value MINX, or 100. Then the next column’s x value 
would be 100+XINC=102, the next would be 
100+XINC*2=104, and the last (or 401st) column’s x 
value would be 100+400*XINC=900, which is equal to 
MAXX, as it should be. In general, the formula for the x 
value for data point number n is x=MINX+XINC¥n. Each 
pixel across the graph represents XINC units, and all of 
them taken together cover the range from MINX to MAXX. 

The FOR. . . NEXT loop at lines 550 to 620 uses XINC 
to calculate each of the 401 x values from MINX to MAXX, 
and then uses the x values to calculate the corresponding 
y values. Line 580 first figures the x value corresponding 
to column number I (temporarily stored in XVALUE), calls 
the subroutine on line 900 which calculates the y value 
(YVALUE) based on XVALUE, and then stores the y value 
in the DATAPNT array. Lines 600 and 610 check the cur- 
rent YVALUE to see if it is a new maximum or minimum 
value for y. At the end of this FOR. . . NEXT loop, all 401 
y values and the y maximum and minimum values are 
determined. The information is ready to be graphed. 
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The Scales 


The ends of the x and y axes must be labeled for numeric 
value, so the user can tell what values the different points 
plotted represent. The MINY and MAXY values we just cal- 
culated represent the range of y values and in lines 650 
and 660 are printed at their respective ends of the y axis. 
The MINX and MAXX values previously input by the user 
are printed, on lines 670 and 680, at their respective ends 
of the x axis. 

The PRINT USING statement is used so that exactly 
three fractional digits are printed. The pound signs in the 
format string indicate that three and only three digits to 
the right of the decimal point should be printed, and that 
places for up to six digits to the left of the decimal point 
should be reserved. Letting BASIC print as many digits as 
needed with a simple PRINT statement could result in as 
few as one digit or as many as 8 digits being printed, spoil- 
ing the appearance of the graph and possibly printing into 
the working area. For example, type: 


PRINT 1: PRINT 18/3 and press Enter 


and you will see why it is necessary to use the PRINT 
USING statement to force a fixed number of decimal 
places. 


Plotting the Points 


On line 700, YINC, the y axis counterpart to XINC, is cal- 
culated. YINC is the number of y units represented by 
each pixel along the y axis. 

We are now prepared to step through each of the 401 x 
values and plot the corresponding point. This is done in 
the FOR. . . NEXT loop from lines 720 to 800. 

The height, in pixels, of each point above the x axis is 
calculated in line 760, and the value stored in the variable 
HEIGHTINPIXELS. This is given by the formula 
HEIGHTINPIXELS=(DATAPNT(I)—MINY)/YINC, which 
returns the portion of the total vertical range of 101 pixels 
represented by the given data point. There is one special 
case, however. If MINY=MAXY, that is, if the function is a 
horizontal line, then YINC will be zero, so the above equa- 
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tion would result in division by zero and thus produce a 
BASIC error message. To handle this special case, we arbi- 
trarily put every point 50 pixels above the x axis. These 
two cases are handled by the IF... THEN... ELSE 
statement in line 760. 

Line 790 plots the data point. The column is O through 
400 columns away from the left end of the x axis, as speci- 
fied by the formula column=155+I where I is the number 
of the current data point. That is, the first data point is 
in column 155 (the left end of the x axis), the second is 
in column 156, and the 401st point is in column 155 + 
400 = 555. The row is HEIGHTINPIXELS pixels above the 
xX axis, as given by the formula row = 136 —- 
HEIGHTINPIXELS where HEIGHTINPIXELS is the num- 
ber of pixels that the current data point is raised above the 
X axis. 

The first point is PSET on the screen. Following points 
are plotted with the LINE statement, with the first coordi- 
nate omitted so that a line is drawn from the preceding 
point to the current point. This produces a continuous 
plot. The IF. . . THEN. . . ELSE statement in line 790 
determines whether the point should be plotted with 
PSET or LINE. 

The graph is now complete! 

Finishing 

Lines 820-870 end the program. Line 820 clears any pend- 
ing keystrokes. This is important because the program 
takes a long time to run, and the user might press a key 
either accidentally or out of impatience. Line 850 then 
waits for a keystroke before ending, so the user can take as 
long as he wants to examine the graph. Line 860 restores 
the screen to 40-column text mode. This is done only 
because high-resolution mode produces 80-column text 
which is illegible on some displays. Line 870 ends the pro- 
gram. 


The Function 


Lines 900 and 910 comprise the subroutine which calcu- 
lates the y value given the x value and the function being 
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plotted. The statement YVALUE=SIN(XVALUE) on line 
900 does all the actual calculation of the sine of x. We 
might replace line 900 with YVALUE=SQR(XVALUE) to 
plot the square root of x, or YVALUE=XVALUE 4 3 to plot 
the third power of x. Try these or any other function, and 
see for yourself that any function can be plotted by insert- 
ing the proper calculation of YVALUE as a function of 
XVALUE. 

Line 910 ends the subroutine and directs the program to 
resume at the statement immediately following the 
GOSUB 900 statement that called the subroutine. 


SUMMARY AND ENHANCEMENTS 


The graphing program just discussed is mostly complete. 
The user is fully prompted for input, and a smooth, 
labeled plot is produced. Because the calculations are 
lengthy, it might be a good idea to notify the user of prog- 
ress through the calculation section so he does not think 
the program has gone into an infinite loop. This could be 
done with a display in the corner that says ‘‘Processing 
number n’’ where n is the number of the current data 
point. 

A useful addition would be to allow the user simply to 
type the function, rather than having to alter the program 
every time the function is to be changed. This would, how- 
ever, take quite a bit of programming. 

The lesson to be learned here is primarily that high-reso- 
lution mode can produce extremely detailed graphics. The 
steps we've followed to scale and plot the graph apply to 
the design of any graphing program. Such programs are 
most useful when they are able to handle varying ranges, 
functions, and output sizes, as well as input from and out- 
put to disk files. A method of plotting and differentiating 
multiple functions on the same set of axes would also be 
highly useful. In medium-resolution mode, the various 
functions could be set apart with color, while in high-reso- 
lution mode, the addition of dotted or dashed lines would 
accomplish the purpose. 
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TEXT-MODE GRAPHICS 


Some good graphics effects can be produced with the text 
characters available on the IBM PC. Text mode is not, 
strictly speaking, a ‘‘graphics mode’’; however, the text 
characters available on the PC include not only the normal 
keyboard letters and numbers, but also shapes and sym- 
bols which can be combined in a mosaic fashion to pro- 
duce pleasing displays. 

The resolution available in text mode is a little hard to 
define. Each of the characters drawn by the Color/Graph- 
ics Adapter is formed from an 8-by-8 matrix of pixels. 
When using a screen 40 characters in width, the resolu- 
tion of the screen in terms of characters is only 25 rows by 
40 columns, but the resolution in terms of the pixels com- 
prising the characters is (25 x 8) by (40 x 8), which is 200 
by 320, exactly the same as in medium-resolution mode. 
Similarly, when the screen is 80 columns wide, the resolu- 
tion in terms of pixels is 200 by 640, just as in high-resolu- 
tion mode. Therefore, in those applications where the 
available characters can be put together to make the 
smooth lines you require, you have the same resolution at 
your disposal as in the graphics modes. 

One distinct advantage of text mode is that all 16 colors 
of the IBM PC are available at all times. Text mode is the 
only mode in which this is true. (Even when the screen 
contains 80 characters across, and the resolution is effec- 
tively the same as high-resolution mode, all 16 colors are 
available.) There are limitations, however. The character 
itself can be any one of the 16 colors, and the background 
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for the rectangle which contains the character can be any 
one of the 8 low-intensity colors, but each character can be 
composed of only these two colors. This means that only 
two colors can appear within each 8-by-8 character box. 
Text mode, therefore, requires ingenuity both to get pixels 
of several colors close together and to avoid the appear- 
ance of blockiness. 

Another advantage of text mode is that it is fast, because 
64 pixels (the 8-by-8 character box) can be drawn simply 
by putting a single character on the screen. Text in text 
mode appears much faster than does text in the graphics 
modes, where the computer must draw each character 
one pixel at a time. Also, in many ways, text mode is more 
convenient than the graphics modes, because only two 
statements, LOCATE and PRINT, are required to produce 
graphics rather than the somewhat intimidating array of 
graphics commands available in the graphics modes. 

Text mode has another advantage over the graphics 
modes in the ability to have what are effectively 4 to 8 sep- 
arate screens, any one of which can be displayed and any 
one of which can be worked with at any time. This means 
that the process of altering or redrawing the screen can be 
hidden from the viewer, so changes can be presented in a 
movie-frame fashion with one complete screen projected 
after the other. This advantage would be more important if 
there wasn’t an often overriding need for compatability 
with the monochrome display. 

The monochrome display (which is run off the Mono- 
chrome Adapter and is completely separate from the 
Color/Graphics Adapter) has absolutely no graphics capa- 
bility per se. It does, however, display the same character 
set as does the Color/Graphics Adapter. Although the 
characters on the monochrome display are formed from 
more and smaller pixels, the result of combining them to 
produce graphics-like effects is much the same. Graphics 
done in text mode for the Color/Graphics Adapter will 
work well on the monochrome display; consequently, all 
IBM PC users can run a program that uses only text-mode 
graphics. (The graphics will, however, be without color on 
the monochrome display.) 
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Unfortunately, the multiple screens available in text 
mode on the Color/Graphics Adapter use extra memory 
because it is required for the graphics modes. Because 
there are no graphics modes on the monochrome screen, 
there is no extra memory on the Monochrome Adapter, 
and there are no multiple screens available when using 
the monochrome display. The result is that virtually no 
one uses the multiple-page potential of the Color/Graphics 
Adapter in programs they plan to sell or distribute, 
because they are unwilling to lose compatability with the 
large monochrome display market. Of course, you can use 
multiple screens for your own programs, but it is not 
advisable to do this in programs you plan to sell or share 
with others who might not have a Color/Graphics Adapter. 

Another consideration is that the monochrome screen 
has no 40-column mode; programs written for 40-column 
text mode on the Color/Graphics Adapter will display on 
the left half of the monochrome screen. Because 80-col- 
umn text mode does not display well on television sets, 
there can be a problem in programs written for the mass 
market. 

Text-mode graphics applications are not that different 
from the uses of the graphics modes. Text mode does bar 
charts well, but does not do continuous graphs as well. Pie 
charts are not a good application, because there is no way 
to form pie-wedge shapes from the available character set. 
Arcade-style games can and have been done in text mode; 
certainly text-mode games can be colorful and flicker-free. 

Why didn’t we cover text-mode graphics first in this 
tutorial? And why bother with the complication of the 
graphics modes? Well, text-mode graphics are essentially 
a patchwork affair—capable of producing good results, but 
only in limited situations and with considerable sleight of 
hand. The more complex the application, the more appar- 
ent this will become. For example, there is no text-mode 
equivalent of the PUT command. For small objects, this is 
no problem, but producing large objects in text mode 
requires multiple LOCATE and PRINT statements. Image 
locations are limited because characters can only appear 
every 8 pixels, and because character locations can be 
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specified only with absolute, rather than relative, coordi- 
nates. 

Furthermore, the smallest distance a moving object can 
travel is one character position, producing jerky anima- 
tion. Finally, many desirable shapes, such as circles, can- 
not be drawn using the characters provided on the PC. 

Text-mode graphics are neither as flexible nor as easy to 
use in complicated situations as are graphics-mode graph- 
ics. On the other hand, they have advantages where 
speed, 16 colors, multiple pages, and monochrome com- 
patibility are important. The choice between the two 
depends on the application, but remember that the fea- 
tures which set both the IBM PC and Advanced BASIC 
apart in terms of graphics are primarily available only in 
the graphics modes and are the reason for the existence of 
the Color/Graphics Adapter. 


SETTING UP THE TEXT-MODE SCREEN 


Three statements are required to configure the screen for 
text mode—SCREEN, WIDTH, and COLOR. Two of these 
statements are familiar from our description of the graph- 
ics modes but assume a new form in text mode. 

The command SCREEN @Q,1 selects color-text mode, and 
SCREEN @,@ selects black-and-white text mode. As men- 
tioned previously, the SCREEN statement is of the general 
form SCREEN mode,burst,activepage,visualpage where 
mode selects the screen mode, burst enables or disables 
color, and activepage and visualpage select which among 
the multiple screens are to be displayed and worked with. 
Visualpage defaults to activepage if not otherwise speci- 
fied. 

A mode of @ selects text mode. A burst of @ selects 
black-and-white mode, while a nonzero burst enables 
color. (This operation of burst in text mode is the reverse 
of that in medium-resolution graphics mode.) As with 
medium-resolution graphics mode, burst does not disable 
color on RGB monitors; in fact, it does not appear to have 
any effect whatsoever on RGB monitors in text mode. All 
parameters are optional, and, if omitted, are left at the pre- 
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vious values. Note that if either mode or burst is changed, 
the screen is cleared, the foreground color is set to white, 
and the background and screen border are set to black. 

The activepage and visualpage parameters are both fas- 
cinating and strange. For example, get into text mode on 
the Color/Graphics Adapter by typing: 


SCREEN 9,8 and press Enter 
and then type: 
SCREEN,,1,1 and press Enter 


All previous text will vanish; you are on a new screen 
called page 1. (Of course, the display is on the same 
screen, but the selectable page that the screen ‘‘shows”’ 
has been changed.) Type: 


SCREEN, ,8,8 and press Enter 


and your first screen, page 0, will reappear unchanged, 
but missing the characters that were typed while you were 
on page 1. The switch is instantaneous. 

So far, all seems clear, but now type: 


SCREEN,,1,9 and press Enter 
and then type: 
PRINT "THIS IS PAGE 1" and press Enter 


Don’t worry—we haven’t destroyed either your keyboard 
or your screen. The reason nothing is appearing on the 
screen is that we have set the active page—the screen to 
which all output goes—to page 1. However, the visual page 
has not been changed from page 0, and so you do not see 
your input as it is “‘echoed’’ to the screen. To see the 
input, press Esc to clear the line you are on (because you 
can't see it, there’s no telling what might be there) and 
then type: 


SCREEN,,,1 and press Enter 


even though you can’t see what you've typed. There is the 
message “THIS IS PAGE 1” and the rest of the lines 
you've typed. It can be confusing to use multiple screens, 
but it can be extremely convenient as well. The viewer 
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need never see a display while it is being constructed and 
can be presented with several screens in rapid succes- 
sion—all the screens can be prepared first, then shown one 
right after the other with no speed constraint. Of course, 
there is potential for a major problem if the program user 
is accidentally left on the wrong screen, or if input is typed 
when the active page and visual page differ. Care is 
required in the use of active and visual pages. 

The values for activepage and visualpage can vary from 
@ to 7 when the screen width is 40 columns (more on this 
when we discuss the WIDTH statement), and from @ to 3 
when the screen width is 80 columns. Any attempt to 
select an invalid page while using the Color/Graphics 
Adapter will result in an “Illegal function call” error. 
There is one curiosity here, however. When on the mono- 
chrome display, error conditions may not occur as 
expected. For example, in a system with both displays, no 
error occurs when the display is on the monochrome dis- 
play and pages other than O are selected. If page 3 is 
selected, and if the graphics display has been initialized by 
being used during that session, the text will appear on the 
graphics screen even though you’re using the mono- 
chrome screen. We suggest that you make sure that you 
are not on the monochrome screen before using pages 
other than page O. We will discuss, in Chapter 19, means 
by which your programs can check for the current display 
screen. 

There is one other important point concerning the use of 
multiple pages. You might reasonably assume that there 
is a cursor associated with each screen, so that when you 
return to that screen, the cursor will be where you left it. 
You would, unfortunately, be incorrect. The cursor posi- 
tion is carried from one screen to the next. For example, 
select text mode, clear the screen with CLS, and type: 


SCREEN,,1,1 and press Enter 
SCREEN, ,2,2 and press Enter 
SCREEN, ,3,3 and press Enter 


and finally: 
SCREEN, ,9,9 and press Enter 
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to return to the original screen. Notice how the cursor pro- 
gresses down the screen as it moves through the various 
pages. There is a way to save the cursor location when 
leaving a screen and then to restore it upon return. The 
function z=CSRLIN returns the row number of the cursor, 
while the function z=POS(y) returns the column the cur- 
sor is in. The parameter x to the POS function serves no 
purpose whatsoever; any variable or constant of any value 
may serve as this parameter. Thus the command 
OLDROW=CSRLIN: OLDCOLUMN=POS(1) can save the 
current cursor position in the variables OLDROW and 
OLDCOLUMN prior to leaving a given screen. Upon 
returning to this screen, the cursor can be restored with 
LOCATE OLDROW,OLDCOLUMN. (We will cover the 
LOCATE statement in more detail later.) 

In general, POS(x) and CSRLIN are useful for telling 
where the cursor is on the screen. An equivalent function 
in the graphics modes, to report the last point referenced, 
is lacking. CSRLIN is not actually a function; rather, it is a 
special BASIC variable, like INKEY$, that has a value set 
by BASIC rather than by the program. POS(x), on the 
other hand, is a true function. There is no practical differ- 
ence between functions and special variables except that 
special variables have no parameters and thus cannot be 
passed values. In the case of POS(x), the x parameter is a 
“dummy,’’ and so POS(x) might just as well have been a 
special variable. 


The WIDTH Statement 


Setting the number of columns displayed on the screen is 
accomplished with the WIDTH statement. Type: 


WIDTH 49:PRINT "TEST 48" and press Enter 
WIDTH 8@:PRINT "TEST 88" and press Enter 


WIDTH 4@:PRINT ''TEST 49" and press Enter 


Only 40 or 80 columns are allowed. Note that there are 
other forms of the WIDTH statement that have nothing to 
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do with the screen display, but rather affect files, printers, 
and asynchronous communication. 

Incidentally, the WIDTH statement can be used in the 
graphics modes as well. However, in medium-resolution 
mode, text can only be displayed in 40 columns, and in 
high-resolution mode, text can only be shown in 80 col- 
umns. Consequently, the WIDTH command must force 
the screen into the graphics mode appropriate to the 
selected width if the current mode is not appropriate. If the 
current mode is medium resolution and WIDTH 4@ is 
typed, nothing happens, but if WIDTH 8@ is entered, the 
screen is cleared and set to high-resolution mode. Simi- 
larly, if the current mode is high resolution and WIDTH 8@ 
is entered, nothing happens, but if WIDTH 4@ is entered, 
the screen is cleared and set to medium-resolution mode 
with color turned on and palette 1 selected. Thus WIDTH 
can serve as a shorthand way to switch between certain 
graphics modes. 

As we mentioned at the beginning of this chapter, the 
monochrome screen can display only 80-column text. No 
error will be reported if WIDTH 4@ is executed on the 
monochrome screen; after this command, text will display 
only on the left half of the monochrome screen (columns 
1-40). Lines longer than 40 columns will wrap around to 
the next line. Any attempt to use the LOCATE statement 
to set the cursor past column 40 will result in an “Illegal 
function call’’ error. One oddity: the monochrome screen 
cannot be set to a width of 40 until a SCREEN @ statement 
is executed. The width simply will not change until this is 
done. 

We will primarily use 40-column text mode in our exam- 
ples, because this mode works well on all displays. 


COLOR in Text Mode 


There are three color regions in text mode: foreground, 
background, and border. The foreground is the body of 
the character displayed. The background is the part of the 
8-by-8 pixel box the character does not occupy, as well as 
the whole 8-by-8 box for those locations that are blank. 
The border is the area around the working area of the 
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screen. In graphics modes, the border is always set to the 
background color, but in text mode, we can control this 
area separately and can produce attractively framed dis- 
plays, particularly on RGB monitors. 

The color of each region is controlled with the COLOR 
statement. In text mode the COLOR statement is COLOR 
foreground,background,border where foreground, 
background, and border refer to the body of the charac- 
ter, the area the character is printed against, and the edge 
of the screen, respectively, as discussed previously. 

On the Color/Graphics Adapter, foreground may have 
any value in the range Q-31. Values of 9-15 indicate one of 
the 16 standard PC colors, as shown in Table 16-1, while 
adding 16 to any value produces the same foreground 
color but blinking. The valid values for background are Q- 
7, corresponding to the first 8 colors in Table 16-1. The 
value for border may be 9-15, representing the full 16 col- 
ors available, again as shown in Table 16-1. (It is possible 
to obtain the full 16-color set of background colors, but, 
because this is not provided by BASIC, we will defer dis- 
cussion of it until Chapter 19.) Out-of-range values are 
often converted to correct values and used with no error 
message—for example, a background value of 8 is treated 
as @. 


Table 16-1. Colors Available on the IBM PC 


NUMBER COLOR* NUMBER COLOR* 
8 


4) Black Gray 
Blue 9 Light Blue 
Green 19 Light Green 
Cyan 11 Light Cyan 
Red 12 Light Red 
Magenta 13 Light Magenta 
Brown 14 Yellow 


White 15 High-Intensity White 


* Any of the 16 colors can be used for the foreground and/or border color: only colors ¢-7 can be 
used for the background color. 


Note that when the border value is changed, the color of 
the entire border immediately changes. However, when 
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the foreground and background values are changed, the 
effects only appear when new operations to the screen 
take place. That is, if you switch the background color 
from black to red, don’t expect the color of all the back- 
ground pixels to immediately switch to red; rather, when 
you PRINT a character, the background area within that 
character’s 8-by-8 box will be red. Then, if you clear the 
screen, it will become red, because every character on the 
screen is redrawn as a blank. 

For example, select text mode, clear the screen, and 
type: 

COLOR, ,4 and press Enter 


The border immediately becomes entirely red. Now 
type: 
COLOR,2 and press Enter 


to select a green background and notice that only the 
background of the Ok prompt and any new characters you 
type are green. Type: 


CLS and press Enter 
and the screen becomes all green. Likewise, type: 
COLOR 3,9 and press Enter 


to select cyan text on a black background. Only those 
characters typed after the COLOR statement are cyan on 
black. 

There is a good reason why all foreground and back- 
ground colors remain the same until explicitly changed. If 
the COLOR statement changed the colors of every charac- 
ter on the screen, it would be possible to have only two col- 
ors on the screen at once—one foreground color and one 
background color. As it is, it is easy to get multiple colors 
on the screen. For example, type: 


COLOR 1,@: PRINT "A's COLOR 2: PRINT "B"': 
COLOR 4: PRINT ''C'' and press Enter 


Background color can be changed as easily as fore- 
ground, but in this example, we leave the background col- 
ored black for the sake of legibility on television sets. 
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The program shown in Listing 16-1 demonstrates the 
multiple color combinations available in text mode in both 
40- and 80-column widths. This program displays every 
text size and color combination possible on the PC. Type 
and run it, paying particular attention to the quality of 
your display. On a good RGB monitor, every character 
should be clear, while on an average television, most char- 
acters will not be legible in 80-column mode. 


Listing 16-1. Color Text Modes. 


109 REM A program that demonstrates the color text modes. 
116 REM 8@ character text mode may be illegible on TV's 
126 REM and low-quality monitors. This program is useful 
139 REM for testing the quality of a color monitor. 

149 SCREEN @,1:COLOR ,@:KEY OFF:CLS 'Set COLOR TEXT MODE 


158 DIM AS$(49) ‘Set aside memory 

16@ AS="48 CHARACTER COLOR TEXT MODE" 

176 WIDTH 49 ‘Set to 48 characters on line 
188 LOCATE ,,@ ‘Turn cursor off 

198 X=5 "Set printing location 

286 GOSUB 299 ‘Display text on screen 

218 AS="89 CHARACTER COLOR TEXT MODE" 

228 COLOR ,%:WIDTH 80 "88 colums/black background 
238 LOCATE ,,@ ‘Turn cursor off 

248 X=25 ‘Set printing location 

258 GOSUB 298 ‘Display text on screen 
268 WIDTH 49 ‘Set back to 48 columns 

278 COLOR 7,8,8:KEY ON:CLS ‘Restore screen 

288 END "Return control to BASIC 
299 FOR BG=¥ TO 7 ‘Each line is printed in 
308 LOCATE 5+BG,X ' a different color 

318 FOR FG=1 TO LEN(AS) ‘Characters will be 16 

32 COLOR FG MOD 32,BG,4 ' different characters 

330 PRINT MIDS(AS,FG,1); ‘Display the next character 
349 NEXT FG ‘Display characters until 
350 PRINT * done displaying all 

369 NEXT BG ' eight lines 


379 COLOR 7,9:LOCATE 18,X:PRINT "PRESS ANY KEY TO CONTINUE" 
380 AS=INKEYS:IF AS=""_THEN 380 ‘Wait for key to continue 
398 RETURN ‘Finished with this string 


If your graphics display is a black-and-white screen, the 
colors will appear as various shades of gray, often with 
every other column white and the alternating columns 
dark. 


There is a question concerning color in text mode that 
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may already have occurred to you. What happens on the 
monochrome screen? In general, the results are common- 
sense, but there are important exceptions to this rule. 

If the foreground color of a character is @-7, the charac- 
ter is normal intensity and white on black. Foreground 
colors 8-15 produce high-intensity white on black, colors 
16-23 produce blinking white on black, and colors 24-31 
produce high-intensity, blinking white on black. 

The exceptions are as follows. Colors 1, 9, 17, and 25 
cause the character to be underlined. For example, fore- 
ground color 25 produces a high-intensity, blinking, 
underlined white on black character. 

Also, if the foreground color is any of 9, 8, 16, or 24 (vari- 
eties of black), and the background color is @ (black), there 
will be no display (black on black). While this sounds 
pointless, it can be useful for applications such as typing 
hidden passwords. Oddly enough, if the foreground color 
is 7 (white), and the background color is also 7, the display 
is not white on white. 

If the foreground color is 9, 8, 16, or 24 (black), and the 
background color is 7 (white), the display is black on 
white. Blinking and high-intensity still apply as usual; for 
example, COLOR 16,7 sets the screen to display blinking 
black characters in a white background. 

Consult the discussion of the COLOR statement in the 
IBM BASIC manual for a summary of color effects on the 
monochrome display. 


USING TEXT MODE 


Now that we have described the fundamentals of text 
mode, we can proceed to use text mode to draw graphics. 
The key commands in this connection are LOCATE and 
PRINT. 

We discussed LOCATE in the chapter on text in 
medium-resolution graphics mode, but we only covered 
that portion of the statement we needed at the time. 
Besides moving the cursor, LOCATE can also alter the 
cursor itself. Clear the screen completely (remember that 
this is done with CLS and KEY OFF) and type: 
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LOCATE 18,18,0: FOR I=1 TO 2880: NEXT and press 
Enter 


The cursor disappears for the duration of the FOR. . . 
NEXT loop and then reappears. (BASIC always produces a 
visible cursor when the program ends to let you know 
where the next characters you type will appear.) Type: 


LOCATE 29,20,1,9,7 and press Enter 


and the cursor will appear at its full height. 

The full form of the LOCATE statement is LOCATE 
row,column,cursor,start,stop. Row is the screen line the 
cursor is to be put on (1 through 25), and column is the 
screen column (1 through 40 or 1 through 80, depending 
on the selected width). Note that the upper-left corner of 
the screen is (1,1), not (Q,0) as in the graphics modes. A 
zero value for cursor will turn the cursor off, while a one 
will turn it on. Note that the cursor cannot be put on line 
25 unless a KEY OFF statement has been executed. 

Start and stop control the top and bottom edges of the 
cursor. In text mode, all characters are 8 lines high, as 
measured in pixels, and so the cursor is no more than a 
maximum of 8 lines high. The top line of the 8 is called 
scan line 9, and the bottom line is called scan line 7. Thus, 
the crossbar in a capital T would be toward scan line Q, 
and the descender in a lowercase y would be toward scan 
line 7. Start is the scan line at which the cursor should 
start appearing white, and stop is the scan line at which it 
should cease to appear white. Type: 


LOCATE,,,@,@ and press Enter 
to make the cursor a sort of ‘‘overline’’ character, and: 
LOCATE,,,3,4 and press Enter 


to move it to the center of the character it is over. We can 
even type LOCATE,,,5,2 to wrap the cursor around from 
the bottom to the top of the line Type: 


LOCATE,,,6,/ and press Enter 
to restore the cursor to its original state. 
All the parameters to the LOCATE statement are 


201 


Graphics for the IBM PC 


optional. The value of any omitted parameter will remain 
unchanged. 

The PRINT statement is straightforward in operation. 
The syntax of PRINT is PRINT expressions; where 
expressions can be any numeric, string, or logical vari- 
ables or constants, and the optional trailing semicolon 
leaves the cursor at the end of the last expression printed, 
preventing the cursor from moving to the next row as it 
will otherwise. (A comma may also be specified to move 
the cursor to the next print field, but is of no relevance 
here.) We will PRINT only strings, because we are inter- 
ested in characters that produce graphics effects, rather 
than numeric values. We will usually use the trailing 
semicolon, because, if BASIC is on lines 24 or 25 and tries 
to go to the next line, the entire display will scroll up, mov- 
ing the top line off the screen and displacing all graphics 
one line. 

Graphics effects can be achieved using only typewriter 
keyboard characters. In the days when most computers 
had only hard copy output, the many variants on the pop- 
ular Star Trek game used the asterisk, parentheses, plus 
sign, uppercase I, and underscore to draw an entire uni- 
verse (or at least a galaxy). Many good posters were done 
with typewriter characters and overstrikes. 

We can produce graphics of this kind on the PC. For 
example, clear the screen and type: 

FOR I=1 TO 22: LOCATE I,1: PRINT ''+++++++ 
++++++++''> NEXT and press Enter 


to draw a slanted grid. Type: 


CLS: FOR I=1 TO 38: LOCATE 19,1: PRINT " o'';: 
NEXT and press Enter 


to make a ball appear to move across the screen. 

The program in Listing 16-2 demonstrates one of the 
ways in which the normal characters may be used for 
graphics (see Fig. 13 in the color photograph section). 
While the graph as drawn is colorful and perfectly ade- 
quate for many applications, it is rather crude. The type- 
writer character set is simply inadequate for most pur- 
poses. 
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Listing 16-2. Text-Mode Graphics. 


100 REM Program to demonstrate text-mode graphics with 
118 REM a simple graphing program. 

120 SCREEN 9,1:COLOR 1,0,@:WIDTH 49:KEY OFF:CLS 
138 LOCATE ,,9 ‘Cursor off 

148 REM Draw axes 

15@ FOR I=1 TO 2Q:LOCATE I,6:PRINT "I":NEXT I 
169 LOCATE 28,7,0:PRINT STRINGS (33,"_") 

17@ REM Label axes 

188 COLOR 2 

198 LOCATE 8,3:PRINT "S":LOCATE 9,3:PRINT "I" 
208 LOCATE 19,3:PRINT "N":LOCATE 11,3:PRINT "E" 
216 LOCATE 13,2:PRINT "(x)" 

226 LOCATE 22,22:PRINT "x (Radians)" 

230 REM Plot a number of sine points 


248 COLOR 4 

258 FOR X=@ TO 12 STEP .4 

260  COLUMN=K*2.5+7 ‘Colum to plot in 
278 SINEX=SIN(X) ‘Calc sine value 


288 REM Calc row that sine value plots in 

298 ROW=15-(SINEX+1!)*5 

3@6 LOCATE ROW,COLUMN:PRINT "*"; 

310 NEXT X 

328 COLOR 7:LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
338 AS=INKEY$:IF AS="" THEN 330 

348 COLOR 7,9,8:CLS ‘Reset screen 

358 END 


Once again, the PC has what we need: a set of unusual 
but useful characters, such as smiling faces, musical 
notes, card suits, and arrows, as well as a set of characters 
designed especially for text-mode graphics. The latter set 
consists of multiple forms of single and double lines which 
can be connected to form a seamless network, solid blocks 
of several shapes, and three shadings that are 25%, 50%, 
and 75% solid. The complete character set available from 
BASIC is shown in Appendix A. 

You will notice that most of the characters are designed 
for special purposes such as mathematical notation and 
foreign language applications, and have no particular use 
for graphics. The most useful graphics characters fall into 
two distinct sets, numbers 1-32 and 176-223. 

Because they are not present on the keyboard, these 
characters cannot be typed between quotes. How do we 
print them? The function z=CHR§$(x) converts the 
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numeric value in x into its string equivalent. The numeric 
values of the characters are listed next to the characters in 
Appendix A. For example, PRINT CHR§(1) prints charac- 
ter number 1, the smiling face, and PRINT CHR$(236) 
prints character number 236, the infinity sign. 

The characters 1-32 are special characters with useful 
shapes. The arrows (numbers 23-27) make ideal pointers 
or missiles, the sun (number 15) makes a good star, the 
smiling faces (numbers 1 and 2) make balls, targets, and 
symbols of all kinds, and the space (number 32) is the all- 
important blank. There are a number of characters that do 
not print but have some other effect instead. For example, 
character number 7 causes the speaker to beep but does 
not print. These special-function characters can be useful 
in certain cases; in particular, characters 28-31 move the 
cursor without using the LOCATE statement, and charac- 
ter 11 homes the cursor to the upper-left corner. To see an 
example, clear the screen and type: 


PRINT CHRS(11): FOR I=1 TO 19: 
PRINT CHRS(28) ;CHRS(31);'"';: NEXT and press Enter 


The first command homes the cursor, and each of the ten 
times through the FOR . . . NEXT loop moves the cursor 
right, then down, then prints a slanted line. The end result 
is a dashed line slanted toward the lower-right corner. 

Incidentally, the special-function characters displace 
some of the special characters available on the PC. There 
are 11 characters that exist but cannot easily be printed 
from BASIC, including the universal male and female 
symbols and another musical note. Printing these requires 
use of the ROM in the PC; this will be described further in 
Chapter 19. 

The other set of special characters, numbers 176-223, 
produce the cleanest text-mode graphics for large areas. 
For example, the program shown in Listing 16-3 draws 
two concentric boxes as smoothly as they could be drawn 
in the graphics modes. Note, however, that these boxes 
are drawn as close together as is possible in text mode. 
The program shown in Listing 16-4 produces color shad- 
ing (see Fig. 12 in the color photograph section), and the 
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program shown in Listing 16-5 uses the block and half- 
block characters 219-223 to construct a simple maze. 
Each of these is as good as any graphics-mode drawing for 
special purposes. The limitations are that characters can 
only be located every 8 pixels, and that only the limited 
pixel arrangements provided by the characters are avail- 
able. For example, there is no way to produce curved or 
jagged lines easily in text mode, or to make the spacing 
between lines less than 8 pixels, as, for example, in Listing 
16-3. 


Listing 16-3. Concentric Boxes in Text Mode. 


10% REM Program to draw concentric boxes in text mode. 
118 SCREEN @,1:COLOR 7,8,@:WIDTH 49:LOCATE ,,@:KEY OFF:CLS 
12@ REM Draw edges of outer box 

138 FOR I=5 TO 35:LOCATE 5,1:PRINT CHRS$(196):NEXT I 
148 FOR I=5 TO 35:LOCATE 20,1:PRINT CHR$(196):NEXT I 
158 FOR I=6 TO 19:LOCATE I,4:PRINT CHR$(179):NEXT I 
166 FOR I=6 TO 19:LOCATE I,36:PRINT CHRS$(179) :NEXT I 
176 REM Draw corners of outer box 

188 LOCATE 5,4:PRINT CHR$(218) 

198 LOCATE 5,36:PRINT CHRS(191) 

200 LOCATE 20,36:PRINT CHRS$(217) 

219 LOCATE 20,4:PRINT CHRS(192) 

220 REM Draw edges of inner box 

238 FOR I=6 TO 34:LOCATE 6,1:PRINT CHRS(196):NEXT I 
249 FOR I=6 TO 34:LOCATE 19,I:PRINT CHR$(196):NEXT I 
259 FOR I=7 TO 18:LOCATE 1,5:PRINT CHRS(179):NEXT I 
269 FOR I=7 TO 18:LOCATE I,35:PRINT CHRS$(179):NEXT I 
278 REM Draw corners of inner box 

288 LOCATE 6,5:PRINT CHRS(218) 

298 LOCATE 6,35:PRINT CHRS$(191) 

306 LOCATE 19,35:PRINT CHRS(217) 

318 LOCATE 19,5:PRINT CHRS(192) 

328 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE"; 
330 AS=INKEYS$:IF AS="" THEN 330 ELSE CLS 

348 END 


Type and run the program in Listing 16-6. This program 
prints each of the 255 characters available from BASIC. 
(This character set is also shown in Appendix A.) Some of 
the characters are blank, one beeps, and one clears the 
screen; these are special function characters. 

The semicolon we have been using at the end of the 
PRINT statement deserves further attention. If the semico- 


205 


Graphics for the IBM PC 


Listing 16-4. Text-Mode Color Shading. 


186 REM Program to demonstrate text mode color shading. 

118 SCREEN @,1:COLOR ,8,@:WIDTH 40:LOCATE ,,@:KEY OFF:CLS 
126 REM Select each of colors 1-7 in tum 

138 FOR I=1 TO 7 

14 COLOR I 

158 REM Select each of 25%, 50%, & 75% shading characters 
169 FOR J=176 TO 178 


179 REM Draw a strip across the screen in each shading 
186 REM and color 

196 FOR COLUMN=5 TO 35 

206 LOCATE ,COLUMN:PRINT CHRS$(J); 

210 NEXT COLUMN 

228 PRINT 

238 NEXT J 

248 NEXT I 


250 LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
269 AS=INKEYS$:IF AS="" THEN 268 ELSE CLS 
276 END 


Listing 16-5. Block and Half-Block Characters in Text 
Mode. 


188 REM Program to demonstrate block & half block 
118 REM characters in text mode. 

126 SCREEN @,1:COLOR 2,9,@:WIDTH 40:LOCATE ,,@:KEY OFF:CLS 
138 REM Draw edges 

149 FOR I=18 TO 30:LOCATE 2,1:PRINT CHR$(220) :NEXT 
159 FOR I=4 TO 21:LOCATE 1,19:PRINT CHR$(221) :NEXT 
169 FOR I=1@ TO 28:LOCATE 22,1:PRINT CHR$(223) :NEXT 
170 FOR I=3 TO 21:LOCATE 1,38:PRINT CHR$(222) :NEXT 
188 REM Draw long barriers 

199 FOR I=3 TO 14:LOCATE I,15:PRINT CHR$(222) :NEXT 
200 FOR I=10 TO 21:LOCATE I,22:PRINT CHR$(221) :NEXT 
219 FOR I=15 TO 17:LOCATE I,19:PRINT CHR$(222) :NEXT 
229 FOR I=7 TO 9:LOCATE I,18:PRINT CHR$(221):NEXT 
238 REM Cross barriers 

249 FOR I=16 TO 19:LOCATE 14,1:PRINT CHR$(22@) :NEXT 
250 FOR I=18 TO 21:LOCATE 10,1:PRINT CHR$(223) :NEXT 
268 FOR I=13 TO 19:LOCATE 18,1:PRINT CHRS$(223) :NEXT 
276 FOR I=18 TO 27:LOCATE 6,1:PRINT CHR$(220) :NEXT 
288 FOR I=1@ TO 17:LOCATE 16,1:PRINT CHRS$(219) :NEXT 
299 FOR I=20 TO 3@:LOCATE 8,1:PRINT CHR$(219) :NEXT 
3G FOR I=17 TO 29:LOCATE 12,1:PRINT CHR$(219) :NEXT 
318 COLOR 7 ‘Back to white letters 

320 LOCATE 25,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
330 AS=INKEYS:IF AS=""" THEN 330 ELSE CLS 

348 END 
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Listing 16-6. Text Character Set. 


106 REM Program to demonstrate complete text character set. 
11@ REM Initialize text mode screen 

128 SCREEN 8,1:COLOR 7,0,@:WIDTH 40:LOCATE ,,@:KEY OFF:CLS 
13@ REM Run through ASCII values 1-255 (full char set) 

148 FOR I=1 TO 255 

15@ REM Print char with selected ASCII value 


169 PRINT CHRS(I);" ";:IF POS(X)>=38 THEN PRINT:PRINT 
176 FOR J=1 TO 100:NEXT J ‘Short delay 
188 NEXT I 


199 PRINT:LOCATE 25,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
200 AS=INKEYS$:IF AS=""" THEN 200 ELSE CLS 
218 END 


lon is not used, the cursor proceeds to the left end of the 
next row after printing. This is not necessarily a problem; 
however, if the cursor is on row 24 or row 25 when the 
PRINT without a semicolon occurs, then the entire screen 
scrolls up. This means that every row on the screen is 
moved up one row, with the top row lost. For example, 
type: 

LOCATE 24,1: PRINT "PRINTING ON ROW 24'' and press 

Enter 


and note that the printed text is immediately moved to 
row 23 as the screen scrolls. The text on row 25 does not 
normally scroll, even when a KEY OFF statement has 
been executed. However, executing a PRINT without a 
trailing semicolon on row 25 does cause rows 1 through 
24 to scroll. 

For most graphics applications, scrolling is best avoided 
by appending a semicolon to all PRINT statements. 
Although, if you have a requirement for animation that 
involves moving the entire screen up, scrolling can be 
handy. The next chapter demonstrates such an applica- 
tion. 


THE SCREEN FUNCTION 
There is a text-mode counterpart to the POINT graphics 


function. The SCREEN function (as distinguished from the 
SCREEN statement) returns either the character at a loca- 
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tion or the attribute of that character, where the attribute 
consists of the foreground and background colors, as well 
as blinking characteristics. 

The SCREEN function is x = SCREEN (row, column, 
attributeflag) where row and column are the location to 
be tested, specified as for the LOCATE statement, and 
attributeflag indicates whether the attribute or character 
is to be returned. If attributeflag is omitted or 0, the ASCII 
value of the character (as shown in Appendices A and B) is 
returned, while a nonzero attributeflag causes the attri- 
bute of the character to be returned. 

Using the SCREEN function to determine which charac- 
ter is present on the screen is straightforward. Type: 


LOCATE 18,18: PRINT "A";: PRINT 
SCREEN(19,19) and press Enter 


This PRINTs a capital A at (19,19), then checks for its 
value. If you look at Appendix A, you will see that the 
value returned, 65, is indeed the ASCII value of capital A. 
Another way to demonstrate this is with the CHR$ func- 
tion. Remember that this function converts an ASCII value 
into its character equivalent. Hence, if we enter LOCATE 
19,19: PRINT ‘“‘A’’;: PRINT CHR$(SCREEN(19,19)), we 
get another capital A. Here we read the character’s ASCII 
value, 65, out of the screen, and then convert it back into a 
character and print it. 

Interpreting the value returned for the attribute is a little 
more complicated. There are three values returned in one 
number: foreground color, background color, and blink. 
These are organized within a single byte as shown in Fig. 
16-1. If this figure is unclear to you, there is a simple pro- 
cedure for interpreting attribute values. 


BIT 7 BIT6 BIT5 BIT 4 BIT 3 BIT 2 BIT 1 BIT O 


IF aaa ees ar aa oe ee eee 
=A COLOR COLOR 


Fig. 16-1. Text-mode attribute byte organization. 
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First, the attribute must be obtained. Clear the screen 
and type: 


COLOR 7,2 


to select white lettering on a green background. (If this is 
illegible on your screen, you may select other colors, but, 
in that case, your results from here on will differ from 
ours.) Type: 


LOCATE 18,18: PRINT "A's: 
A=SCREEN(18,18,1) and press Enter 


to put a capital A on the screen at (10,1@), then store the 
value of the letter’s attribute in the variable A. 
Now type: 


COLOR 7,@: CLS: PRINT "FOREGROUND: ''s(A AND 15) 
and press Enter 

PRINT "BACKGROUND: '"; (A AND 112)/16 and press 
Enter 

IF (A AND 128) THEN PRINT "BLINKING" ELSE 
PRINT "NOT BLINKING" and press Enter 


The values of 7 for foreground, 2 for background, and 
nonblinking that we set with the COLOR statement will be 
shown. (The screen is cleared only for legibility.) We will 
describe these attributes one at a time. 

The foreground value is calculated by the formula (A 
AND 15) where A is the attribute value. The value 
returned is in the range Q-15, corresponding to the 16 
available colors. 

The background color is calculated by (A AND 112)/16 
where A contains the attribute value. The value returned 
is in the range Q-7, corresponding to the 8 low-intensity 
background colors. 

If the character is blinking, (A AND 128) will return a 
nonzero value, which is to say that it will be interpreted as 
TRUE by an IF statement. If the character is not blinking, 
(A AND 128) will return zero, which is interpreted as 
FALSE. As shown above, an IF ...THEN... ELSE 
statement can readily be used to check the blink. 

The program shown in Listing 16-7 uses the SCREEN 
function to check the screen contents. This is our familiar 
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bouncing ball example, but with an important difference. 
The wall is composed entirely of solid block characters 
(ASCII value 219). Each wall is composed of blocks of a dif- 
ferent color however. By using the SCREEN function to 
get the attribute byte of the block, then ANDing the attri- 
bute with 15 to get the foreground color, we can tell which 
wall we have hit. Notice that the program does not merely 
negate the direction when it hits; rather, it sets the direc- 
tion based on the wall struck. This is only possible 
because the SCREEN function tells us precisely which 
wall has been hit. For the x direction, this is done on lines 
310-330, and for the y direction it is done on lines 380- 
400. 

The SCREEN function performs in precisely the same 
fashion on the monochrome screen as it does with the 
Color/Graphics Adapter. The foreground, background, 
and blink values selected via the COLOR statement are 
returned in the attribute value and can be separated as 
previously described. Of course, these values must be 
interpreted according to the rules of the monochrome 
screen. For example, a color value of 1 for foreground indi- 
cates “‘blue’’ on the Color/Graphics Adapter, but indicates 
“underlined” on the monochrome screen. 


MULTIPLE SCREEN PAGES 


We can now properly demonstrate the active and visual 
screen pages available in text mode. The program shown 
in Listing 16-8 first draws four different faces in four differ- 
ent active screen pages. These four screen pages are then 
alternated rapidly; the successive images create the 
impression of motion. Animation of this sort is rapid and 
virtually flickerfree. This listing is quite long; if you do not 
type it, at least look over the program to get a sense of the 
use of multiple screen pages. 


TEXT-MODE GRAPHICS 


We would like to leave you with a sense of both the advan- 
tages and disadvantages of text-mode graphics. Text- 
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Listing 16-7. SCREEN Function. 


198 REM Program to demonstrate use of the 

118 REM SCREEN function. 

12@ REM Set text mode screen 

138 SCREEN @,1:COLOR 7,9,@:WIDTH 4@:KEY OFF:CLS:LOCATE ,,@ 

149 REM Draw walls, each in a different color 

158 COLOR 1:FOR I=18 TO 3@:LOCATE 2,1:PRINT CHRS$(219) :NEXT 

16@ COLOR 2:FOR I=18 TO 3@:LOCATE 22,I:PRINT CHR$(219) :NEXT 

178 COLOR 3:FOR I=3 TO 21:LOCATE I,10:PRINT CHRS(219) :NEXT 

188 COLOR 4:FOR I=3 TO 21:LOCATE I,3@:PRINT CHRS$(219) :NEXT 

198 REM Initialize the ball 

22G COLOR 7,9,0 

210 BX=20:BY=5 

226 BXINC=1:BYINC=1 

238 LOCATE BY,BX:PRINT "0" 

248 REM Loop to move ball 

258 FOR I=1 TO 200 

266 REM save old location 

276 BXOLD=BX : BYOLD=BY 

288 REM Move in x direction 

298 BX=BX+BXINC 

386 REM Check for collision & reverse if needed 

318 IF SCREEN(BY,BX) = 32 THEN 368 'If space, then didn't hit 
320 IF (SCREEN(BY,BX,1) AND 15) = 3 THEN BXING1 ‘Hit left 
336 IF (SCREEN(BY,BX,1) AND 15) = 4 THEN BXINC=-1 ‘'Hit right 
348 BX=BX+2*BXINC ‘Undo old move & make new one 

358 REM Move in y direction 

368 BY=BY+BYINC 

370 REM Check for collision & reverse if needed 

389 IF SCREEN(BY,BX) = 32 THFN 420 ‘If space, then didn't hit 
398 IF (SCREEN(BY,BX,1) AND 15) = 1 THEN BYING=1 ‘Hit top 
42D IF (SCREEN(BY,BX,1) AND 15) = 2 THEN BYINC=-1 ‘Hit bottom 


418 BY=BY+2*BYINC ‘Undo old move & make new one 

426 LOCATE BYOLD, BXOLD:P. hs ‘Blank old ball off 
436 LOCATE BY,BX:PRINT "O"; "New ball on 

449 NEXT I 


456 LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
469 AS=INKEY$:IF AS="" THEN 468 ELSE CLS 
478 END 


mode graphics are colorful, fast, and easy to use for cer- 
tain purposes. Animation is, however, jerky; this is ines- 
capable when the shortest possible movement is 8 pixels. 
Text-mode displays are also typically angular and some- 
what blocky. On the other hand, the screen is more color- 
ful than is possible in the graphics modes, and text-mode 
programs are relatively straightforward and easy to under- 
stand or debug—and, of course, will run on any IBM PC 
display. 
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Listing 16-8. Multiple Pages in Text-Mode Animation. 


166 
116 
126 


450 
460 
476. 
489 


598 
688 
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REM Program to demonstrate the use of multiple pages 
REM in text mode animation. 

SCREEN 9,1,8,8:COLOR 7,9,@:WIDTH 40:KEY OFF:CLS 
LOCATE ,,@ ‘Turn cursor off 

REM Screen @ face 


SCREEN ,,%,@:CLS:GOSUB 489 ‘Draw basic face 
COLOR 5:LOCATE 6,15:PRINT "0" ‘Left eye 
LOCATE 6,25:PRINT "0" ‘Right eye 
LOCATE 13,2@:PRINT CHRS$(127) ‘Nose 

REM Screen 1 face 

SCREEN ,,1,1:CLS:GOSUB 480 ‘Draw basic face 
COLOR 5:LOCATE 8,13:PRINT "0" ‘Left eye 
LOCATE 8,23:PRINT "0" "Right eye 
LOCATE 13,19:PRINT CHRS$(127) ‘Nose 

REM Screen 2 face 

SCREEN ,,2,2:CLS:GOSUB 480 ‘Draw basic face 
COLOR 5:LOCATE 1@,15:PRINT "0" 'Left eye 

LOCATE 19,25:PRINT "O" ‘Right eye 
LOCATE 13,20:PRINT CHR$(127) ‘Nose 

REM Screen 3 face 

SCREEN ,,3,3:CLS:GOSUB 48 ‘Draw basic face 
COLOR 5:LOCATE 8,17:PRINT "O" ‘Left eye 
LOCATE 8,27:PRINT "0" "Right eye 
LOCATE 13,21:PRINT CHRS$(127) ‘Nose 


REM Animate by alternating faces 
REM Animate 38 times 
FOR TIMES=1 TO 19 

REM Run through all four pages 


FOR I=@ TO 3 
SCREEN ,,1I,1I ‘Select new screen 
FOR J=1 TO 19@:NEXT J "Delay a bit 
NEXT I 
NEXT TIMES 
SCREEN 2) ‘Back to page @ 
COLOR 7,9,9 ‘Reset color 


LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
AS=INKEYS: IF AS="" THEN 468 ELSE CLS 

END 

REM Subroutine to draw face 

REM Draw outline 

COLOR 1 ‘Blue outline 
FOR I=11 TO 29:LOCATE 2,1:PRINT CHR$(196) :NEXT 
FOR I=11 TO 29:LOCATE 22,1:PRINT CHR$(196) :NEXT 
FOR I=3 TO 21:LOCATE I,19:PRINT CHR$(179) :NEXT 
FOR I=3 TO 21:LOCATE 1,30:PRINT CHR$(179) :NEXT 
LOCATE 2,10:PRINT CHRS$(218) 

LOCATE 2,30:PRINT CHRS(191) 

LOCATE 22,30:PRINT CHRS$(217) 

LOCATE 22,1@:PRINT CHRS(192) 

REM Hair 

COLOR 14 "Yellow hair 


Text-Mode Graphics 


Listing 16-8—cont. Multiple Pages in Text-Mode 
Animation. 


610 LOCATE 1,19:PRINT "\j/" 

628 REM Mouth 

638 COLOR 12 "Red mouth 

640 FOR I=16 TO 24:LOCATE 16,1:PRINT CHRS$( 265) :NEXT 
650 LOCATE 16,15:PRINT CHR$(212) 

660 LOCATE 16,25:PRINT CHRS(19@) 

678 COLOR 9 "Blue eyes 

680 REM Right eye 

698 FOR I=13 TO 17:LOCATE 5,1:PRINT CHRS$(196) :NEXT 

706 FOR I=13 TO 17:LOCATE 11,1:PRINT CHRS(196) :NEXT 
71@ FOR I=6 TO 10:LOCATE I,12:PRINT CHRS(179) :NEXT 

728 FOR I=6 TO 1@:LOCATE I,18:PRINT CHRS$(179) :NEXT 

738 LOCATE 5,12:PRINT CHR$(218) 

748 LOCATE 11,12:PRINT CHRS(192) 

75@ LOCATE 11,18:PRINT CHR$(217) 

768 LOCATE 5,18:PRINT CHRS$(191) 

77@ REM Left eye 

786 FOR I=23 TO 27:LOCATE 5,1:PRINT CHRS(196) :NEXT 

798 FOR I=23 TO 27:LOCATE 11,1:PRINT CHRS(196) :NEXT 
889 FOR I=6 TO 1@:LOCATE I,22:PRINT CHRS(179) :NEXT 

819 FOR I=6 TO 19:LOCATE I,28:PRINT CHRS$(179) :NEXT 

826 LOCATE 5,22:PRINT CHR$(218) 

838 LOCATE 11,22:PRINT CHRS$(192) 

849 LOCATE 11,28:PRINT CHRS(217) 

858 LOCATE 5,28:PRINT CHRS$(191) 

869 RETURN 


The choice between modes is yours, and, as the next 
chapter will show, text-mode graphics can be powerful 
indeed. Nonetheless, we suspect that as you do more 
graphics on the PC, you will develop a preference for the 
graphics modes. 
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RACECAR—AN ARCADE-STYLE 
GAME 


Now we will put what we’ve learned about text mode 
graphics to use. We will design a game called Racecar. We 
will follow the game-design approach we used in Chapter 
11 for Blockbuster, but there are differences between the 
designs of the two. This is, in part, a function of the differ- 
ences between text and graphics modes; however, the pri- 
mary reason is that each game is a work in and of itself, 
the design of which cannot be reduced to a set of step-by- 
step instructions. 


RACECAR 


The synopsis of Racecar follows. The player tries to guide 
a car along a constantly weaving roadway, staying to the 
middle of the road and avoiding the sides. If either side of 
the road is hit, a nonfatal crash occurs. The roadway has a 
fixed length, and the object of Racecar is to drive the full 
length of the road with as few crashes as possible. 

All graphics will be done in text mode. 

There are three sections to design—the road, the car, 
and “housekeeping.” The road divides into two further 
sections, the initial road and the moving road. 

As we design and program Racecar, it will become 
apparent that we had a good idea of what the game con- 
sisted of before we began to design. The game-making 
process is not so neatly defined as indicated by the follow- 
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ing discussion, and it is impossible to design a game 
unless you already have an overall concept. As much of 
the game as possible should be worked out before you 
begin programming. 


The Initial Road 


Before the action part of the game begins, we must set up 
the playing field. This involves positioning a stretch of 
road on the screen before play begins. This stretch of road 
orients the player and avoids the appearance of a road that 
begins from nowhere. The initial stretch of road is always 
straight and centered, so the player will not be confused at 
the start of the game and so the car can be started in the 
center every time. 

Before discussing the road in detail, we will establish the 
basics of the display. We have already specified that the 
graphics consist of text-mode characters. In order to avoid 
undue complexity, we do not use the type of text-mode 
graphics that involve combining special characters 
together to create images; rather, we use only normal 
typewriter-style characters, so the basic unit size is one 
character. 

The screen width is 40 characters. While 80 characters 
across the screen would allow for more detailed graphics, 
80-character mode does not display well on television sets. 
So the game will be playable on all displays, we use 40 
characters per row. Note that if the game is played on the 
monochrome screen, it will display in the left 40 columns 
only. 

We use black and white text mode and only black (color 
Q) and white (color 7). These colors provide legibility and 
clarity on poor-quality displays. 

We are now ready to specify the dimensions of the road- 
way. A space of ten columns (one-fourth of the screen) 
seems a good first choice. However, an odd value for the 
number of columns is preferable, so the car can be set 
squarely in the middle of the roadway. In actual use 
(including some testing and correction), nine columns 
proved effective. 

The first choice to be made in designing the roadway is 
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to select a character to delineate the sides. Thinking 
ahead, however, we decide that the easiest way to tell if 
the car has hit the shoulder is to use the SCREEN func- 
tion. If the contents of the screen where the car is about to 
move are not blank, then the shoulder has been hit. 

But while we know that a shoulder has been hit, we 
don’t know which one. Why do we care which one? Well, 
thinking still further ahead, because we have decided that 
a crash is not fatal, we need to ‘‘restart’’ the car after each 
crash. One option is to restart it in the center of the road- 
way. However, we prefer to have the car “‘bounce”’ off the 
side back into the road. In this case, it is critical to know 
which shoulder is hit, because the car must bounce back 
in the direction of the roadway, safely clear of the shoul- 
der, before restarting. 

Given this, it is necessary to use a different character for 
each side. Then the value returned by the SCREEN func- 
tion can be used, not only to tell whether a shoulder has 
been hit, but also which shoulder. Thus far, we have deter- 
mined that the road is outlined with two sides, each drawn 
with a different character. A problem remains: what if as 
the road is angling to the left, the player is moving the car 
to the right. Because there is a combined motion of two 
character positions before checking for a collision, it is 
possible for the car to be ‘‘driven’”’ between the characters 
of the shoulder without hitting one. The player would be 
off the road, the program would be out of control, and the 
player would be able to drive the car off the screen. 

The solution is to use the width of two characters, rather 
than one, to draw the side of the road. Also, the car and 
the road cannot be allowed to shift by more than one char- 
acter width between collision checks, so that driving out- 
side the road is impossible. 

We now know the road is surrounded with two shoul- 
ders composed of different characters. The shoulders are 
each two characters in width. We have also discovered 
more about Racecar in the process of designing the road. 
The parts of this game cannot be designed in isolation; in 
fully outlining one section, we must consider other sec- 
tions as well. 
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This interdependence of parts is often true in game 
design. At best, you will have a strong concept of the game 
throughout the design phase and will be able to keep the 
many parts straight in your head. More likely, however, 
you will do your best at design, start to program the game, 
think of possible problems, go back to the design phase to 
make changes, and program again. While you are testing 
the program, you will find other problems. (For example, 
we did not catch the car driving unharmed through the 
single-width shoulder until we tested the program.) 
Remember, too, that we are only talking about implement- 
ing the design concept; conceiving the design concept is 
sometimes more difficult. 

To summarize, you must make the pieces fit as best you 
can. As you try to sort out the ramifications of one section, 
you may find that your task grows out of control; take 
notes, follow an outline, and think. 

We are now ready to complete the design of the initial 
road. We know that the initial road is composed of two 
sides in a straight line, extending the length of the screen. 
The left shoulder is composed of the right-bracket charac- 
ter (]), and the right shoulder is made of the left- 
bracket character ([), because these characters look suita- 
bly like a boundary wall. 


The Moving Road 


The play of the game takes place entirely against the back- 
drop of a moving road. To make the road appear to be 
more than one screen long, we keep the car in the center 
of the screen at all times, and make the road appear to 
move past it. 

The direction of the road’s motion is a problem. Usually, 
one would expect that the road would move toward the 
bottom of the screen to disappear below (and in effect 
behind) the car. However, there is only one way that the 
screen scrolls with any speed in BASIC, and that is up. 
Because we have decided that the car remains fixed, and 
the road moves, and because the road may wander any- 
where on the screen, we must program the road to appear 
to move up and off the screen, with the car effectively 
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moving downward. As discussed in Chapter 16, we can 
make the screen scroll by executing a PRINT statement, 
without a semicolon, on row 24 or row 25 of the screen. 

We add to the bottom of the road with the same PRINT 
statement with which we scroll the screen. The effect will 
be to move the top section of the road off the screen, the 
new road section onto the bottom of the screen, and the 
road sections in between up one row. 

We know how wide the road is and of what characters it 
is composed. We need to know where to place each new 
road section. We can only let the road wander one column 
to the right or left from its previous position, because the 
player couldn’t handle sharper turns, and if the road 
moved two or more columns, the shoulder would have 
gaps through which the car could slip. Remember that 
each road section will first appear on row 24. Because the 
car is in the center of the screen, it does not encounter any 
given road section until that section has been scrolled up 
several times. 

The road shoulder will be moved only one column from 
its previous position each time a new section is added to 
the bottom of the road. The direction of motion is ran- 
domly selected, so the road is generated “‘spontaneously”’ 
during play of the game. 

If we let the road wander randomly as each row is 
drawn, it will move too abruptly for the player to respond; 
worse, it will tend to “jitter” rather than weave through 
broad curves. To make the road weave well, we execute 
each direction of wander several times before randomly 
selecting a new one. The number of times to wander in 
each selected direction (the wander factor) before choos- 
ing a new one is best determined by trial and error. We 
arrived at three repetitions as an appropriate value for the 
wander factor. 

In moving the road left and right across the screen, we 
must check for the left and right margins of the screen, so 
the road doesn’t wander off the edge. We do this by per- 
forming a trial move in the selected direction; if the new 
column is at either margin, we reverse the direction and 
perform a double move in the new direction. This double 
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move undoes the trial move and makes one normal move 
away from the margin. 


The Car 


The car is represented by a single character on the screen. 
The character representing the car will stay on the same 
row, row 10, as the road appears to move by it. When the 
screen scrolls to move the road up, the character repre- 
senting the car will scroll up as well. We could erase the 
scrolled car character before redrawing the car on row 10, 
but this would result in jerky motion. Also, by leaving the 
character on the screen, we can create a trail of the car’s 
motion on the screen to help give the player a sense of his 
current motion. For these reasons, the car’s track is left on 
the screen to trail towards and off the top. 

The car, like the road, can wander only one column each 
time the screen is scrolled one row. A greater motion 
would make the car difficult to control. Keyboard input 
will be used to select the direction of the car’s motion— 
right, straight, or left. We could require that a key be 
pressed each time the car is to be moved one column, but 
continued motion in the specified direction until another 
key is pressed usually provides better control. 

Motion of the car into the shoulders of the road must be 
monitored. Because a previous section of the program 
ensures that the road cannot wander off the screen, the 
car can only hit the shoulder or not hit the shoulder; there 
are no other possibilities. If the car does not hit the shoul- 
der, it is drawn in its new location. 

If the car hits the shoulder, we first determine which 
shoulder by checking the character on the screen that the 
car has hit. We then pause, make a crash sound by execut- 
ing the BEEP statement three times, and pause the action 
long enough to let the player prepare to resume the game. 

There are several options for restarting the car. One 
choice is to restart it in the same way it started when the 
game began. Another is to put the car in the middle of the 
road. We prefer to make the car appear to ‘“‘bounce’”’ off the 
shoulder by moving it away from the shoulder and restart- 
ing it. We move the car two columns away from the shoul- 
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der so it doesn’t hit the shoulder again on the next move. 
This is why it is important to know which shoulder we’ve 
hit; we need to know which way to move to avoid the 
shoulder. 

We do not draw the car until we have checked for colli- 
sion with the shoulder, so we can’t accidentally erase part 
of the shoulder. 

The car starts in the middle of the road, headed straight 
ahead. This properly belongs in “‘housekeeping,’’ but is 
necessary to start the car so it can be tested. 

We will use the up-arrow character (4), above the num- 
ber 6 at the top of the keyboard) to represent the car. 


Housekeeping 


One task of housekeeping is deciding how long the race 
should be. We use 200 repetitions, which, in conjunction 
with the repeat factor of three for drawing road sections in 
each randomly selected direction, draws 600 road sections 
in each game. 

We must keep track of the number of crashes. This 
number is initialized and displayed on the screen before 
the game is run. Each time the car crashes, the number of 
crashes is updated on the screen. When the game ends, 
nothing more need be done because the number of 
crashes is already displayed. 


PROGRAMMING RACECAR 


Racecar is now completely outlined. We will program 
each section of the game separately, making sure each 
part works before proceeding to the next. Because we 
described modular programming in detail in Chapter 11, 
we will not go into more detail here. Also, as described in 
Chapter 11, there are no comments in the program list- 
ings, and there are multiple statements on many lines 
because of speed considerations. A listing with comments 
is shown at the end of this chapter. 

Racecar is programmed in four steps, corresponding to 
the four sections described above. A listing is provided 
with each section. Note that the earlier listings seem to 
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have gaps in the line numbering. The missing numbers 
are reserved for lines dealing with later steps. You do not 
need to leave such gaps in your own programs because 
you can use the RENUM statement to make line numbers 
orderly. We space the line numbers as we do for explana- 
tory purposes. 


Programming the Initial Road 


The program in Listing 17-1 sets up the screen and the ini- 
tial road. Line 100 sets up the screen for Racecar. Black 
and white text mode is selected, with a white foreground 
against a black background and border. The screen is then 
cleared. The DEFINT statement sets all variables to 
default to integers, because operations on integers are per- 
formed much more quickly than those on floating-point 
numbers, and we need only integers. 

Line 120 defines the width of the track (stored in vari- 
able TRKWIDTH) as nine columns between the shoulders. 
The initial position of the left shoulder of the road, stored 
in TRKPOS, is set to column 15, which centers the road on 
the screen. 

The initial road is put on the screen in line 150. Twenty- 
three road sections are drawn; the FOR . . . NEXT loop 
does each section in turn. The sections are drawn by using 
LOCATE to position the cursor at column TRKPOS (the 
left shoulder column), and row 24. Two right brackets (the 
left shoulder), the number of spaces indicated by 
TRKWIDTH, and two left brackets (the right shoulder) are 
then PRINTed. (The SPC function produces the number of 
spaces indicated by the parameter, in this case 9, as speci- 
fied by TRKWIDTH.) 

This PRINT statement creates one road section. The 
PRINT does not have a trailing semicolon, and because it 
is on row 24, the entire screen scrolls up one line, clearing 
room for the next road section. After this has been done 23 
times, the road extends from the top of the screen to the 
bottom in a straight line. 

One note: row 25 does not scroll when we print on row 
24. This will become important when we do house- 
keeping. 
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Listing 17-1. Racecar—Initial Screen. 


18 REM Racecar—initial screen. 

190 DEFINT A-Z:SCREEN 9,@:COLOR 7,%,@:WIDTH 49:LOCATE ,,9: 
CLS:KEY OFF 

128 TRKWIDTH=9 : TRKPOS=15 

158 FOR I=1 TO 23:LOCATE 24,TRKPOS: 
PRINT "]]" SPC(TRKWIDTH) "[(":NEXT I 

328 END 


Programming the Moving Road 


The program shown in Listing 17-2 sets up the screen and 
then moves the road. 

As described in the design section, the wandering of the 
road from side to side is randomly selected. There is a 
BASIC function, RND, which is designed to return a 
sequence of random numbers, one number each time it is 
called. However, RND must be initialized with the RAN- 
DOMIZE statement, which is of the form RANDOMIZE(n) 
where n is a number used to seed the random string 
returned by RND. Unfortunately, the same string is 
returned every time the same value for n is used for a 
seed. We want some way to get a different seed every 
game so each game is different from the rest. 

One approach would be to use the statement RANDOM- 
IZE with no n. In this case, the player is asked for a seed. 
However, we would rather have the seeding process invisi- 
ble to the player. We can do this with the special BASIC 
variable TIME$. 

The value of TIME$ is always the current time in 
HH:MM:SS format. If the time was set at boot-up, then 
TIME$ returns the correct time; if not, it returns the time 
elapsed since the computer was booted. In either case, the 
seconds portion of TIME$ will serve well as a random seed 
with values between @ and 59. The seconds are characters 
in a string, but we can easily convert them to a numeric 
value to use in the RANDOMIZE statement. 

First, the RIGHT$ function, which selects only the speci- 
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fied rightmost portion of a string, can be used to separate 
the seconds portion from the TIME$ string. Type: 


AS=TIMES: PRINT A$: PRINT RIGHT$SCA$,2) and press 
Enter 


to see how this works. Then the VAL function, which con- 
verts numbers in string form to numeric values, can be 
used to turn the seconds string into a number suitable to 
seed RANDOMIZE. Understand that a number such as 3 is 
what we need; what the RIGHT$ function by itself returns 
is a string like ““@3” which cannot be used for numeric 
operations. For example, 3+2 is the number 5, but 
“2” +03” is the string ‘‘203”’. 

Line 110 initializes the RND function based on the time. 
Because there are only 60 possible values for the seconds 
string, there are only 60 possible racecourses. This is plenty to 
create the impression of great variety, as it seems unlikely any 
player would recognize a repeat course among 60 different 
ones. If necessary, however, we could also pick out the value of 
the minutes portion of the TIME$ string, multiply it by 60, and 
add it to the value of the seconds portion to give a much greater 
range of possible seed values and, thus, courses. 

Line 130 sets NUMLINES, the wander factor, to 3. (The 
wander factor is the number of times that each randomly 
selected direction of movement for the track is repeated 
before a new direction is selected.) The track movement 
process is repeated 200 times; the variable TRKLEN is the 
counter for this. Therefore, 600 road sections are drawn in 
all, as the three repetitions of each track movement are 
themselves repeated 200 times. 

We are ready to move the road. Due to the dual repeti- 
tion previously discussed, two nested FOR ... NEXT 
loops are required. The inner loop moves the road by the 
selected wander factor NUMLINES times, while the outer 
loop repeats the wander TRKLEN times. When the outer 
loop ends, the game is done. 

The outer loop begins on line 170. TRKCNT, the num- 
ber of times the wander has been executed, runs from 1 to 
TRKLEN, or 200 times. The outer loop ends on line 310. 

Line 180 randomly selects the wander direction that is 
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to be repeated in the inner loop. The RND function is 
z=RND(x) where if x is positive or omitted, the next ran- 
dom number is returned. If x is J, the last number gener- 
ated is repeated, and if x is negative, the sequence is 
reseeded, as it is when RANDOMIZE(x) is executed. We 
only need a positive value to return the next number, 
because we have already seeded the sequence. 

RND(x) returns a value between 9 and 1. Multiplied by 3 
and made an integer, this becomes a value between @ and 
2. To test this, type: 


FOR I=1 to 2@: PRINT INTCRND(19@)*3): NEXT and 
press Enter 


(Note that we used 100 because we did not wish you to 
attach too much weight to the value of the parameter to 
RND. Any positive value will function as well as 100.) 
Thus, line 180 randomly generates a value of —1, Q, or 1, 
which is what is needed for the track wander direction. 
(Remember that the track cannot move more than one col- 
umn at a time.) This randomly generated value is stored in 
TRKDIR for use in the inner loop. 

The inner FOR. . . NEXT loop begins on line 190 and 
ends on line 300. Within this loop, the selected track 
movement direction is executed NUMLINES (3) times. The 
car will also be moved each time a track section is drawn. 

Line 200 performs a trial move of the track as specified 
by the previously generated TRKDIR. If this new location 
is not past the allowable margin at column 2 or column 
27, then TRKPOS, the track location, is left at the new 
location. (Column 27 is the right margin because the track 
is 13 columns wide, so when the left side of the road is at 
column 27, the right shoulder is one column from the 
right edge of the screen.) If the new location is past the 
margin on either side, then TRKDIR is negated, reversing 
the road movement direction, and a move of double the 
new direction is executed. This double move undoes the 
trial move and moves one column in the new direction. 

After the new track column, TRKPOS, has been set, line 
210 PRINTs the new road section at the track column on 
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row 24. The screen scrolls up, moving the entire road up 
one row. 

This inner loop is repeated 3 times (as specified by 
NUMLINES) so the road will be smoother. The outer loop 
repeats this process TRKLEN times to draw the entire 
road. Type and run the program in Listing 17-2 to gener- 
ate the moving road. Observe the effect of the wander fac- 
tor of 3. You might try changing the wander factor to see 
what effect other values have. 


Listing 17-2. Racecar—Moving Track. 


19 REM Racecar—-Initial screen & moving track. 

190 DEFINT A-Z:SCREEN %,8:COLOR 7,0,@8:WIDTH 49:LOCATE ,,@: 
CLS:KEY OFF 

11@ RANDOMIZE(VAL(RIGHTS (TIMES, 2) ) ) 

126 TRKWIDTH=9:TRKPOS=15 

138 NUMLINES=3 : TRKLEN=200 

158 FOR I=1 TO 23:LOCATE 24,TRKPOS: 
PRINT "]]" SPC(TRKWIDTH) "[[":NEXT I 

176 FOR TRKCNT=1 TO TRKLEN 

188 TRKDIR=1-INT(RND(190)*3) 

198 FOR TRKSECTION=1 TO NUMLINES 

208 TRKPOS=TRKPOS+TRKDIR: IF (TRKPOS<2) OR (TRKPOS>27) THEN 

TRKPOS=TRKPOS-2*TRKDIR: TRKDIR=-TRKDIR 

218 LOCATE 24,TRKPOS:PRINT "]]" SPC(TRKWIDTH)"[[" 

306 NEXT TRKSECTION 

318 NEXT TRKCNT 

328 END 


Programming the Car 


The program shown in Listing 17-3 adds the car to the 
moving road. Line 140 initializes the position of the car to 
the middle of the road, and initializes the car to move 
straight down the road. 

Before the car is moved and redrawn, we first check the 
keyboard for a change of direction. This is done on line 
220. Keyboard input, if any, is obtained with the INKEY$ 
special variable. The input is then checked against z, x, 
and c (all lowercase) to see if CARDIR (the direction) 
should be set to —1 (left), @ (straight), or 1 (right). 

Line 230 sets the new location of the car based on the 
value stored in CARDIR. Line 230 also checks for a colli- 
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sion. If the SCREEN function reports that a blank (ASCII 
value 32) exists at the car’s new location, then there is no 
collision, and the program goes around the collision-han- 
dling code to line 280. 

If the SCREEN function does not find a blank at the car’s 
new location, then a collision must have occurred. The 
program then proceeds to line 240. 

Lines 240 and 250 check for collision with the right 
shoulder and the left shoulder, respectively. If line 240 
finds the right shoulder, indicated by the left-bracket char- 
acter (ASCII value 91), then the car is moved back two col- 
umns to the left. This creates the impression that the car 
is bouncing off the shoulder. Similarly, if line 250 finds the 
left shoulder, indicated by the right-bracket character 
(ASCII value 93), then the car is moved two columns to the 
right. 

Note that lines 230, 240, and 250 only work because we 
have structured the game properly. We can assume that 
any nonblank character is the shoulder only because we 
have made sure that no other characters can be in the 
car’s path. If we had obstacles in the road, for example, we 
could not make this assumption. Also, either line 240 or 
line 250, but not both, can be executed each time through 
the loop, because there is no way the car can hit both 
shoulders at the same time. These conditions may seem 
obvious, but if this game were more complex, we would 
have to be careful about the assumptions we make. 

Line 260 which, like lines 240 and 250 only executes if a 
collision has occurred, makes the collision sound by exe- 
cuting the BEEP statement three times in a row. This pro- 
duces a rather penetrating sound for about 1 second, 
enough time for the player to realize he has crashed, but 
short enough so the flow of the game is not broken. 

Line 280 is executed after the program has ‘‘dealt with’’ 
any collision and the car has been moved. Line 280 draws 
the car on the screen on row 10 at the current car column 
(CARPOS). Note that the shoulder is never disturbed by 
collisions, because we do not draw the car until after the 
bounce has occurred. Also, note that we do not draw the 
car until after we have drawn the new road section and 
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scrolled the screen. This means the previous car character 
has been moved up one row before the new one is drawn; 
this is how we leave a trail behind the car. Again, the tim- 
ing relationship between the road and the car is critical; if 
we checked in the wrong sequence, we might get colli- 
sions when it appeared none had occurred or vice versa. 
For example, if we drew the car before we scrolled, then it 
would appear to be on row Q, but the collision check would 
occur on row 10, where the car was drawn just before 
being scrolled. 


Listing 17-3. Racecar—Car. 


10 REM Racecar--Initial screen, moving track, & car. 

186 DEFINT A-Z:SCREEN 9,@:COLOR 7,9,9:WIDTH 48:LOCATE ,,@: 
CLS:KEY OFF 

11@ RANDOMIZE (VAL(RIGHTS (TIMES, 2) )) 

1206 TRKWIDTH=9 : TRKPOS=15 

138 NUMLINES=3 : TRKLEN=290 

148 CARPOS=TRKPOS+TRKWIDTH\2 : CARDIR=8 

15@ FOR I=1 TO 23:LOCATE 24,TRKPOS: 
PRINT "JJ" SPC(TRKWIDTH) "[[":NEXT I 

176 FOR TRKCNT=1 TO TRKLEN 

188 TRKDIR=1-INT(RND(1@0)*3) 

196 FOR TRKSECTION=1 TO NUMLINES 

206 TRKPOS=TRKPOS+TRKDIR: IF (TRKPOS<2) OR (TRKPOS>27) THEN 


TRKPOS=TRKPOS—2*TRKDIR: TRKDIR=-TRKDIR 
2108 LOCATE 24,TRKPOS:PRINT "]]" SPC(TRKWIDTH) "[[" 
226 KS$=INKEY$:IF K$="z" THEN CARDIR=-1 ELSE IF KS$="x" THEN 


CARDIR=8 ELSE IF K$="c" THEN CARDIR=1 
236 CARPOS=CARPOS+CARDIR: IF SCREEN(1@,CARPOS)=32 GOTO 289 


248 IF SCREEN(1@,CARPOS)=91 THEN CARPOS=CARPOS-2 
256 IF SCREEN(10,CARPOS)=93 THEN CARPOS=CARPOS+2 
266 BEEP ; BEEP ;: BEEP 


288 LOCATE 18,CARPOS:PRINT "*"; 
300 NEXT TRKSECTION 

319 NEXT TRKCNT 

329 END 


Programming the Housekeeping 


Shown in Listing 17-4 is the completed Racecar program. 
We have already set the length of the race on line 130 and 
the starting conditions for the car on line 140. The only 
other housekeeping task is handling crashes. 

The number of crashes is set to zero by line 160. Line 
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Listing 17-4. Racecar—Finished Version. 


1@ REM Racecar--finished version. 
198 DEFINT A-Z:SCREEN 9,0:COLOR 7,9,8:WIDTH 40:LOCATE ,,@: 
CLS:KEY OFF 
11@ RANDOMIZE(VAL (RIGHTS (TIMES, 2) ) ) 
126 TRKWIDTH=9:TRKPOS=15 
13@ NUMLINES=3 : TRKLEN=208 
148 CARPOS=TRKPOS+TRKWIDTH\2 : CARDIR=9 
15@ FOR I=1 TO 23:LOCATE 24,TRKPOS: 
PRINT "]]" SPC(TRKWIDTH) "[[":NEXT I 
168 NUMCRASHES=0:LOCATE 25,13:PRINT "Crashes=";:LOCATE 25,23: 
PRINT NUMCRASHES; 
17@ FOR TRKCNT=1 TO TRKLEN 
188 TRKDIR=1-INT(RND(189)*3) 
196 FOR TRKSECTION=1 TO NUMLINES 


208 TRKPOS=TRKPOS+TRKDIR: IF (TRKPOS<2) OR (TRKPOS>27) THEN 
TRKPOS=TRKPOS-2*TRKDIR: TRKDIR=-TRKDIR 

216 LOCATE 24,TRKPOS:PRINT "]]" SPC(TRKWIDTH) "CL" 

226 KS=INKEYS: IF KS="z" THEN CARDIR=-1 ELSE IF KS="x" THEN 
CARDIR=0 ELSE IF KS="c" THEN CARDIR=1 

230 CARPOS=CARPOS+CARDIR: IF SCREEN(18,CARPOS)=32 GOTO 288 

24 IF SCREEN(1@,CARPOS)=91 THEN CARPOS=CARPOS-2 

258 IF SCREEN(1@,CARPOS)=93 THEN CARPOS=CARPOS+2 

269 BEEP : BEEP : BEEP 

278 NUMCRASHES=NUMCRASHES+1 

286 LOCATE 1@,CARPOS:PRINT "*"; 

298 LOCATE 25,23:PRINT NUMCRASHES; 


300 NEXT TRKSECTION 

319 NEXT TRKCNT 

32 FOR J=1 TO 1000:NEXT J 

330 IF INKEYS<>"" THEN 328 

348 LOCATE 24,7:PRINT "PRESS ANY KEY TO CONTINUE"; 
350 AS=INKEYS:IF AS="" THEN 350 ELSE CLS 

369 END 


160 also displays this initial number of crashes on row 25. 
Note that here we are taking advantage of a quirk of 
BASIC. Row 25 does not scroll with the rest of the screen, 
even after KEY OFF has been executed. We can take 
advantage of this by displaying the number of crashes on 
row 25 where it will remain throughout the game. 

Line 270 adds one to the number of crashes when line 
230 detects a crash. Line 290 displays the current number 
of crashes on row 25 each time through the loop, whether 
the number of crashes has changed or not. When the 
game is concluded, the number of crashes remains on the 
screen on row 25 and serves as a final score. 
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Note that if the PRINT statement on line 290 did not 
have a semicolon at the end, the screen (except for row 25) 
would scroll, creating gaps in the shoulders and making 
the game unplayable. 


IMPROVING RACECAR 


Type and run Listing 17-4, the finished version of 
Racecar. Try to match the play of the game to the design 
process we’ve gone through. A fully commented version of 
Racecar is shown in Listing 17-5. Study the game thor- 
oughly before proceeding. 


Listing 17-5. Racecar—Finished, Commented Version. 


1@ REM Racecar-——an arcade-style game--commented version. 

95 REM Make variables integers, set b/w text mode, clear screen 

100 DEFINT A-Z:SCREEN 9,%:COLOR 7,8,9:WIDTH 48:LOCATE ,,9: 
CLS:KEY OFF 

105 REM Seed random # generator so game is different each time 

118 RANDOMIZE(VAL(RIGHTS (TIMES, 2) ) ) 

115 REM Initialize game parameters 

126 TRKWIDTH=9:TRKPOS=15 

138 NUMLINES=3 : TRKLEN=200 

135 REM Start car in middle of track and heading straight 

149 CARPOS=TRKPOS+TRKWIDTH \ 2: CARDIR=@ 

145 REM Draw initial section of track 

158 FOR I=1 TO 23:LOCATE 24,TRKPOS: 
PRINT "JJ" SPC(TRKWIDTH) "[[":NEXT I 

155 REM Initialize crash count display 

16@ NUMCRASHES=@:LOCATE 25,13:PRINT "Crashes="; :LOCATE 25,233 
PRINT NUMCRASHES; 

165 REM Main loop for actual game play 

176 FOR TRKCNT=1 TO TRKLEN 

175 REM Get a random direction to move track in (-1,9 or 1) 

188 TRKDIR=1-INT(RND(190)*3) 

185 REM Repeat move track in direction so it wanders properly 

199 FOR TRKSECTION=1 TO NUMLINES 

195 REM Find new place to put track, if it would hit the 

196 REM side of the screen then reverse motion 

208 TRKPOS=TRKPOS+TRKDIR: IF (TRKPOS<2) OR (TRKPOS>27) THEN 

TRKPOS=TRKPOS—2* TRKDIR: TRKDIR=-TRKDIR 
205 REM Put the next line of the track on the screen, 


286 REM cause screen to scroll up one line 

218 LOCATE 24,TRKPOS:PRINT "]]" SPC(TRKWIDTH)"[[" 

215 REM Set a new car direction if a direction key hit 

228 KS$=INKEYS$: IF KS="z" THEN CARDIR=~-1 ELSE IF KS="x" THEN 


CARDIR=9 ELSE IF K$="c" THEN CARDIR=1 
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Listing 17-5—cont. Racecar—Finished, Commented 


Version. 
225 REM Find new car position and check for side of road 
230 CARPOS=CARPOS+CARDIR: IF SCREEN(18,CARPOS)=32 GOTO 28% 
234 REM Car has hit side of track 
235 REM If car hit right side of track, it should go left 
246 IF SCREEN(1@,CARPOS)=91 THEN CARPOS=CARPOS-2 
245 REM If car hit left side of track it should go right 
258 IF SCREEN(1@,CARPOS)=93 THEN CARPOS=CARPOS+2 
255 REM Beep so player knows he/she crashed 
260 BEEP : BEEP : BEEP 
265 REM Add to the number ‘of crashes to be displayed 
276 NUMCRASHES=NUMCRASHES+1 
275 REM draw car in its new position 
286 LOCATE 1@,CARPOS:PRINT "*"; 
285 REM display the number of crashes 
296 LOCATE 25,23:PRINT NUMCRASHES; 


308 NEXT TRKSECTION 

318 NEXT TRKCNT 

315 REM Short delay to help stop key inputs 

328 FOR J=1 TO 10@@:NEXT J 

325 REM Clear the inkey buffer 

339 IF INKEYS<>"" THEN 330 

349 LOCATE 24,7:PRINT "PRESS ANY KEY TO CONTINUE"; 
350 AS=INKEYS:IF AS=""" THEN 358 ELSE CLS 

369 END 


In Chapter 11, we suggested many improvements to 
Blockbuster that are applicable to Racecar as well. These 
include saving the high score to disk, making on-screen 
instructions available, and pausing at the end of the game 
and then allowing the game to be restarted immediately. 

You might want to add color to Racecar. Using other 
characters to represent the shoulders and car, in conjunc- 
tion with color, could make the game visually quite attrac- 
tive. Color is one of the strengths of text mode, and we 
suggest that you add it. In this connection, if your monitor 
can display text in 80 columns, you can modify the game 
for 80-column operation. Thus, you could use two charac- 
ters where one character is used now; by combining char- 
acters, the shoulders and the car could be better drawn. 

The race can be of variable length, perhaps randomly 
selected or selected by the player. The speed of the game 
can also vary. The speed can increase during the game, or 
can be player-controllable with a key serving as the equiv- 
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alent of an accelerator. Also, the road width can vary 
between 5 and 11 columns, for example, to add challenge. 
Width, speed, and length can be combined to establish 
skill levels which increase in difficulty as the players 
improve their skills. 

There can be obstacles in the road that the car has to 
avoid (or, for that matter, collide with to gain extra points). 
These obstacles can be combined with wide spots in the 
road to create islands that the car has to pass on one side 
or the other. Other cars moving at different speeds would 
be excellent obstacles, though the programming would be 
difficult to implement. 

One of the best additions to any game is a two-player 
mode. For Racecar, this would mean having two cars, 
each controlled with a different set of keys. There are a 
number of ways to implement two-player mode, but one 
good approach would be to have two identical tracks next 
to each other so both players would meet the same chal- 
lenges at the same time. 

A task you may find instructive would be programming 
a similar game in one of the graphics modes to gain a bet- 
ter understanding of the strengths and weaknesses of text 
and graphics modes. 

Many other improvements can be made to Racecar. You 
may prefer to design your own game. Racecar is the last 
game we will design in this tutorial, so use it as a 
jumping-off point for your own work—and remember that 
you learn the most from your own efforts. 
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SUMMARY OF THE TUTORIAL 


You have finished reading the tutorial, and you have a 
practical knowledge of Advanced BASIC’s graphics capa- 
bilities. Let’s review what you have learned. 

You first learned how to start the computer, how to cre- 
ate a working disk for this tutorial, and how to make a 
backup copy for safety. You also learned about the equip- 
ment needed for graphics, especially that there are two 
possible screen adapters in the PC, with the Color/Graph- 
ics Adapter necessary in order to perform graphics. 

You learned that there are two primary display modes, 
text and graphics modes. There are two graphics modes, 
medium-resolution mode and high-resolution mode. 
Medium-resolution mode provides four colors with 320 
column by 200 row resolution, while high-resolution mode 
is in black and white only but provides 640 column by 200 
row resolution. Medium-resolution is the general-purpose 
graphics mode, combining color and detail, while high-res- 
olution mode provides the best resolution available on the 
RC. 

You learned each of the graphics commands in turn. 
These commands have many applications—the tutorial 
applied them to graphing, a pie chart, a pong-type game, 
and character generation. The graphics commands are 
powerful, versatile, and represent a major improvement 
over BASIC commands available on earlier microcom- 
puters. 

Text-mode graphics were described. Text-mode graph- 
ics tend to be fast and easy to use for small programs but 
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not well suited for large-scale graphics applications. Text- 
mode graphics are not very flexible; also, there are no spe- 
cial BASIC graphics commands for text mode as there are 
for graphics mode. Text-mode graphics are most useful 
when compatibility with the Monochrome Adapter is 
needed. 


WHERE DO YOU GO FROM HERE? 


What can you do with your new knowledge? Well, you 
have all the tools needed to perform virtually any graphics 
application that is not time-critical; even then, the GET 
and PUT statements often can help. You have the ability 
to control completely the pixel—the basic building block of 
graphics—with the PSET, PRESET, and POINT com- 
mands. You can also draw lines, curves, or rectangles with 
a single command, color areas easily with PAINT, save 
forms for later rapid reproduction with GET and PUT, and 
use command strings to define and manipulate complex 
shapes with DRAW. Finally, and perhaps most impor- 
tantly, you have an idea of how to apply this knowledge to 
designing a program. 

This doesn’t mean that your graphics education is com- 
plete. The graphics commands are tools, and the program 
design you have learned is only a preliminary step. You 
will become adept at using the graphics commands with 
experience. 

Graphs, games, and drawing and design packages are 
within your capabilities. A simple graphics package for 
producing colorful artwork would be exciting and achiev- 
able; three-dimensional imaging would be a challenge. An 
enhanced character generator, perhaps applied to multi- 
lingual education, would be a useful educational tool. Sim- 
ulation animation, (the visual representation of a space- 
craft’s trajectory, for example) would be an impressive 
application of the PC’s graphics. 
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PART 3 


ADVANCED TOPICS 


CHAPTER 19 


A GRAB BAG OF GRAPHICS 
TRICKS 


This chapter presents a potpourri of graphics-related 
“tricks” and useful facts, including several ways to manip- 
ulate colors and a means of controlling the state of the 
Caps Lock and Num Lock keys. 

There is no particular order to the items we will present; 
each is useful in and of itself. Many of the items function in 
a rather esoteric way; we will not explain why they work 
but simply demonstrate their use, though the workings of 
some of them are explained in Chapter 20. 

We use the OUT statement several times in this chapter. 
The OUT statement directly controls the ports that are 
used to communicate with the hardware in the PC. If the 
OUT statement is used incorrectly, it is possible, although 
unlikely, that the display can be damaged. Make sure you 
type commands exactly as shown when the OUT state- 
ment is used. If you have trouble, such as the display 
going blank or becoming garbled, immediately turn off 
your display and reboot the system by turning off the com- 
puter for approximately 10 seconds and then turning it 
back on. 

Do not experiment with the OUT statement unless you 
know what you are doing. Read the Technical Reference 
manual before you use the OUT statement except as it is 
used in this book. 

One other note is that we use the DEF SEG statement 
often in this chapter. When the DEF SEG statement is 
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used, type it as shown or the function following the DEF 
SEG will not perform properly. For example, when we 
demonstrate saving the screen to disk, a DEF SEG = 
&HB8Q@@ statement must be performed before the screen 
is saved, or the save will not work properly. We will 
describe the DEF SEG statement in detail in the next 
chapter. 


COLOR IN HIGH-RESOLUTION MODE 


There are two ways to get color in high-resolution graphics 
mode. One works only on RGB monitors, while the other 
works only on television sets and composite monitors. The 
two methods produce results that differ sharply. 

When using an RGB monitor in high-resolution mode, 
you may select any one, but only one at a time, of the 16 
colors available on the PC for the foreground color (color 
1). To select a color, type the BASIC command OUT 
&H3D9,color and press Enter where color is a value 
between 9 and 15 as shown in Table 19-1. For example, 
select high-resolution mode by typing: 


SCREEN 2 and press Enter 
and type: 
OUT &H3D9,4 and press Enter 


and all the white pixels on the screen are red. (Remember, 
this will only work on an RGB monitor.) Type: 


OUT &H3D9,9 and press Enter 


and the pixels are light blue. As with switching palettes in 
medium-resolution mode, every pixel on the screen imme- 
diately changes color. The program in Listing 19-1 shows 
each of the colors available in high-resolution mode on an 
RGB monitor. Color 8 is a gray that may not show up well 
unless your display brightness is high. 


ARTIFACTING 


The method described in the preceding section does not 
produce color on television sets and composite monitors. 
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Table 19-1. High-Resolution Graphics Mode Fore- 
ground Colors on RGB Monitors 


COLOR* 
Q Black Gray 
1 Blue Light Blue 
2 Green Light Green 
3 Cyan Light Cyan 
4 Red Light Red 
5 Magenta Light Magenta 
6 Brown Yellow 
7 White High-Intensity White 


Listing 19-1. High-Resolution Graphics Mode Color on 
RGB Monitors. 


19% REM Program to demonstrate color in high-resolution 
118 REM graphics mode on RGB monitors only. 

12@ SCREEN 2:KEY OFF:CLS ‘Set screen 

13@ REM We will make the circle each color in turn 

149 CIRCLE (328,190),50:PAINT STEP(9,9) 

15@ LOCATE 18,34:PRINT "COLORED CIRCLE" ‘Label it 

168 REM Do all 15 colors but black 

176 FOR I=1 TO 15 


188 OUT &H3D9,I1 ‘Select color 
199 FOR J=1 TO 190@:NEXT J "Delay for viewing 
20 NEXT I 


218 REM Wait to end 

215 LOCATE 21,28:PRINT "PRESS ANY KEY TO CONTINUE" 
220 AS=INKEYS:IF AS$="" THEN 220 

238 SCREEN %,1:WIDTH 40 "Reset screen 
248 END 


However, a second method, called artifacting, can be used 
to produce a wide variety of colors in high-resolution mode 
on composite displays (including tvs) only. 

We are going to describe and demonstrate artifacting; a 
technical discussion is beyond the scope of this book. 
Artifacting on the PC is the process of putting high-resolu- 
tion white pixels on the screen in patterns that produce 
color effects on displays driven with a composite signal. 
The resolution available when using artifacting on the PC 
is approximately 160 columns by 200 rows in 16 colors 
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(see Fig. 14 in the color photograph section). Additional 
colors can be produced, but resolution diminishes further 
because the additional colors are produced by combining 
several dots of differing colors. Artifacting works best with 
large areas of solid color. The results achieved with 
artifacting can be excellent, but we must emphasize that 
on RGB monitors, artifacting only produces various pat- 
terns of white dots. 

On the PC, artifacting is performed in high-resolution 
mode. Composite monitors cannot display all of the 640 
pixels across the screen that would be displayed by an 
RGB monitor; instead, each four-pixel group on any row 
produces a single dot of one color. In effect, every four 
pixels define what we might call a ‘‘mega-pixel,’’ which is 
the dot displayed on the composite screen. The four-pixel 
groups start with a pixel in a column evenly divisible by 4, 
so that four-pixel groups start in columns 0, 4, 8, 12, and 
so on, with 160 four-pixel groups on each of the 200 rows. 

A demonstration follows. Type and run the program 
shown in Listing 19-2. (If you have only an RGB monitor, 
this program will not produce the desired effect.) Note the 
many bright colors. (The actual colors you see depend on 
your display. Some television sets have automatic tuning 
circuitry that can change colors or make some colors 
appear as white.) 

The statement OUT &H3D8,26 on line 150 must always 
be executed to turn on color before artifacting is per- 
formed. The FOR. . . NEXT loop from lines 180 through 
350 draws and labels a solid block of each of the 16 colors 
in turn, beginning with black and ending with white. 

The key line in this program is 300, which draws each of 
the vertical lines that comprise the block of solid color. 
The FOR . . . NEXT loop starting at line 270 varies L to 
select each of the four low-order bits of I, the variable 
which selects the color currently being used. These four 
bits in turn determine the white or black status of the cor- 
responding four pixels controlling the “‘mega-pixel” being 
drawn. The four pixels can be arranged in 16 different 
ways, producing 16 different colors. When all four pixels 
are white, the color of the ‘‘mega-pixel’’ will be white, and 
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Listing 19-2. Color Generation by Artifacting. 


1@@ REM Program to demonstrate color generation in 
118 REM hi-res mode by artifacting. 

12G REM Set screen to hi-res mode 

138 SCREEN 2:KEY OFF:CLS 

149 REM Enable color burst so TV will display color 
158 OUT &H3D8, 26 

169 REM Label column that color numbers will go in 
178 LOCATE 1,38:PRINT "COLOR #¢" 

188 REM Draw using each of the 16 colors in turn 
198 FOR I=@ TO 15 

200 REM Set point at which to begin drawing colored area 
219 PRESET(120,1*8+16) 

226 REM Draw colums 106 to 250 

23 FOR K=1@@ TO 258 STEP 4 


24 REM Draw set of 4 pixels, producing one 

258 REM  artifacted colored pixel. Color is based 
26 REM on the 4—-bit pattern in I 

276 FOR L=3 TO 9 STEP -1 

289 REM Draw one column in white, if bit is 1, or 
296 REM in black, if bit is 9 

326 LINE -STEP(@,7),SGN(I AND 2°L):PRESET STEP(1,-7) 
316 NEXT L 

326 NEXT K 


338 REM Label color number 

348 LOCATE I+3,48:PRINT I 

358 NEXT I 

368 LOCATE 24,27:PRINT "PRESS ANY KEY TO CONTINUE" ; 
378 AS=INKEY$:IF AS="" THEN 370 

380 SCREEN @,1:WIDTH 49 'Reset screen 

398 END 


when all four are black, black is produced. Run the pro- 
gram to see the 14 other colors. 

If the preceding discussion (especially the term “bit’’) 
confuses you, don’t despair, as the material covered in the 
next chapter may help. Artifacting is not complicated to 
use, but it is difficult to explain in nontechnical terms. In 
any case, the best way to learn about artifacting is to 
experiment with it. 

Artifacting is worth learning. On many computers, it is 
the primary way of producing color, and on the PC, it 
gives the best combination of color and resolution avail- 
able. There are two drawbacks to artifacting: (1) the figure 
lack detail, and (2) artifacting does not work on RGB moni- 
tors. 
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MORE ON COLOR 


In text mode, BASIC allows us to have only the 8 low- 
intensity colors for the background parameter. It is possi- 
ble to get all 16 background colors, but in doing so, the 
computer cannot produce blinking characters. 

To enable all 16 background colors, type: 


OUT &H3D8,n and press Enter 


where n is 8 when the screen width is 40 columns, and n 
is 9 when the screen width is 80 columns. Then, to pro- 
duce a high-intensity background, add 16 to the value of 
the foreground color when you use the COLOR statement. 
The important point here is that the value of the fore- 
ground color affects the background. For example, select 
40-column color text mode and type: 


WIDTH 40: OUT &H3D8,8 and press Enter 
to disable blink and enable the 16 background colors. Now 
type: 


COLOR 7,1: PRINT "DARK BLUE" and press Enter 
COLOR 7 16,1: PRINT "LIGHT BLUE" and press Enter 


to produce both the normal and high-intensity back- 
grounds. 
However, if we type: 


COLOR 23: PRINT "NOT BLINKING" and press Enter 


and we have lost the ability to produce blinking charac- 
ters. 

To restore blinking and turn off high-intensity back- 
ground colors, type: 


OUT &H3D8,n and press Enter 


where n is 40 in 40-column mode and 41 in 80-column 
mode. If we now type: 


OUT &H3D8,4% and press Enter 


the characters that have high-intensity backgrounds will 
begin to blink. 
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The interpretation of the attribute byte returned by the 
SCREEN function (described in Chapter 16) differs slightly 
when 16 background colors are turned on and the blink is 
turned off. The foreground and background colors are 
determined the same way, except you can tell if the back- 
ground color is a high-intensity color by a statement such 
as IF SCREEN(ROW,COL,1) AND 128 THEN PRINT 
‘‘HIGH-INTENSITY BACKGROUND”. 

This is the same test used for blinking. Because there is 
no blinking when there are 16 background colors, there is 
no conflict. 


COLORED TEXT IN GRAPHICS MODE 


In medium-resolution graphics mode, BASIC is able to 
PRINT text in color 3 (white or brown) only, even though 
there are two other colors in each palette. We can select 
any of the palette colors as the PRINT color with the state- 
ment DEF SEG: POKE &H4E,color where color is 1, 2, or 
3 for the desired color from the current palette. If you 
select color O, the background color, the characters will be 
invisible, because the foreground and background colors 
will be the same. 

For example, in medium-resolution mode, with palette 1 
selected, type: 


DEF SEG: POKE &H4E,2: PRINT ''MAGENTA TEXT" and 
press Enter 

POKE &H4E,1: PRINT ''CYAN TEXT" and press Enter 

POKE &H4E,3: PRINT "WHITE TEXT" and press Enter 


It is only necessary to execute the DEF SEG statement 
once at the beginning of a program, or after a different 
DEF SEG has been executed. 

The use of a method, such as this one, which involves 
modifying undocumented sections of BASIC involves 
some risk. The technique may not work with a different 
version of BASIC or with Advanced BASIC on another 
machine. By way of contrast, the PSET statement will 
work in any version of Advanced BASIC on any computer 
that supports PC-DOS. IBM has, by printing a manual, 
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committed itself to supporting and maintaining the docu- 
mented features of BASIC, but we have no such guarantee 
with the text-color modification just discussed. Such 
tricks are often useful when a necessary function is omit- 
ted, but should be avoided otherwise. 


THE THIRD PALETTE 


As we hinted previously, there is a third, unofficial palette 
available on the PC. Colors 1 and 3 are cyan and white, as 
with palette 1, but color 2 is a vivid red. In fact, this third 
palette might have the most eye-catching color set of the 
three palettes (see Fig. 15 in the color photograph section). 
The drawback is that the palette can be displayed only on 
an RGB monitor. 

The third palette is produced by disabling the burst in 
medium-resolution mode. This produces a black-and- 
white display on television sets and composite screens, 
but on RGB monitors the third palette is produced instead. 
For example, type: 


SCREEN 1,1 and press Enter 


to select medium-resolution mode with the burst turned 
off. Clear the screen, and type: 


LINE (18,1096)—(98,198) ,1,BF and press Enter 
LINE (118,106)—(196,196) ,2,BF and press Enter 
LINE (216,106)—(296,196) ,3,BF and press Enter 


to display the three colors available. 

When you switch from palette @ to palette 1, the screen 
does not clear. However, when you switch from palettes @ 
or 1 to the unofficial palette, or vice versa, the screen does 
clear. 

The program in Listing 19-3 shows each of the three pal- 
ettes. Lines 160-280 select each of the three palettes in 
turn and call the subroutine at line 310 to draw three cir- 
cles in colors 1, 2, and 3 of that palette. The third palette 
will appear in black and white on composite displays. 
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Listing 19-3. Three Color Palettes. 


188 REM Program to demonstrate the three color 
119 REM palettes available on the IBM PC. 
120 REM The last palette does not work on 
130 REM TV's. 


148 SCREEN 1,8:CLS:KEY OFF "Set screen 

150 COLOR @ "Black background 
168 REM Do palette @ first 

176 COLOR ,& "Select palette 0 


186 REM Set label & label location 
198 LBLS="Palette 9":COL=17 


288 GOSUB 319 ‘Draw circles in colors 1,2,3 
219 REM Palette 1 

226 COLOR ,1 "Select palette 1 

238 LBLS="Palette 1":COL=17 "Set label/loc 

248 GOSUB 319 ‘Circles in three colors 
258 REM Unoffical palette 

268 SCREEN ,1 ‘Disable color burst 

27@ LBLS="Unofficial Palette":COL=12 

28 GOSUB 318 '3 circles 

299 SCREEN @,1:WIDTH 40 "Reset screen 

389 END 


31@ REM Subroutine to draw circles in 

320 REM colors 1, 2, and 3. Screen is 
330 REM labelled with sting in LBLS 

348 CLS 

350 CIRCLE(80,100),3@,1:PAINT STEP(9,9),1 
360 CIRCLE(169,19@),30,2:PAINT STEP(G,9),2 
370 CIRCLE(249,100),38,3:PAINT STEP(G,9),3 
388 REM Label screen 

399 LOCATE 21,COL:PRINT LBL$ 

486 LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
419 AS=INKEYS:IF AS="" THEN 419 

428 RETURN 


CHECKING THE SCREENS 


An IBM PC can have a Color/Graphics Adapter, a Mono- 
chrome Adapter, or both. It is often essential that you 
know what screens are available, which one BASIC is cur- 
rently using, and how to switch between the screens. 

The program Switch, discussed in Chapter 2, provides 
you with a means to go from one screen to the other. An 
important point is that when you switch from one screen 
to the other, you do not necessarily have to clear the 
screen. If you do not clear the screen, the information dis- 
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played on the old screen remains. If, and only if, you have 
a two-adapter system, run the program in Listing 19-4 for 
an example of this. Lines 180-250 switch to the Color/ 
Graphics Adapter, lines 260-310 draw on the graphics 
screen, and lines 320-360 then switch back to the mono- 
chrome screen. The graphics display remains on the color 
monitor even though the cursor and all subsequent text 
are back on the monochrome screen. 

When you select a new display, however, that screen 
is automatically cleared. In short, you can put infor- 
mation on a screen, then switch to the other screen without 
erasing the information, but when you switch back to the 
first screen, the first screen will be erased. 


Listing 19-4. Two-Adapter Graphics. 


186 REM Program to switch to color/graphics adapter, 
119 REM draw graphics, then return to the monochrome 
128 REM screen with the graphics intact. 

130 REM May be started on either screen--always ends 
148 REM on the monochrome screen. 

15@ REM * 

166 REM * Will work *only* with two-adapter systems!!! 
176 REM * 

188 DEF SEG=0 ‘Point segment to BIOS variables 

198 RFM Switch to color/graphics adapter 

206 REM First clear old screen before switching 

210 KEY OFF:CLS 

220 A=PEEK(1049):POKE 1048,(A AND 207) OR 32 

230 REM Set medium-resolution graphics screen 

246 REM with palette @ 

258 SCREEN 1,@:COLOR @,2:CLS:KEY OFF 

268 REM Draw circles in three colors 

278 CIRCLE(8@, 190) ,80,3:PAINT STEP(Z,@),3 

288 CIRCLE(160,190),80,2:PAINT STEP(@,@),2 

298 CIRCLE(249,190),80,1:PAINT STEP(G,@),1 

308 REM Label the artwork 

319 LOCATE 24,9:PRINT "Circles in graphics mode"; 

326 REM Switch to monochrome adapter 

339 A=PEEK(1049):POKE 1648,A OR 48 

346 REM Set monochrome screen mode & cursor 

359 SCREEN @,@:COLOR 7,9:LOCATE 1,1,1,12,13 
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To tell if there is a Color/Graphics Adapter in a PC, use 
two statements that take the form DEF SEG=&HB8@9: 
A=PEEK(@): POKE 9,(A+1) MOD 256, then IF PEEK(Q) 
<>(A+1) MOD 256 THEN PRINT ‘‘NO COLOR/ 
GRAPHICS ADAPTER” and press Enter. Here the DEF 
SEG statement sets BASIC to look at that part of memory 
where the Color/Graphics Adapter resides, and the PEEK 
and POKE statements check whether there is anything 
there. We will discuss PEEK, POKE, and DEF SEG in 
detail in the next chapter. 

To check for the Monochrome Adapter, two statements 
such as DEF SEG=&HBQQ09@: A=PEEK(@): POKE @,(A+1) 
MOD 256 and press Enter, then IF PEEK(@)< >(A+1) 
MOD 256 THEN PRINT ‘‘NO MONOCHROME 
ADAPTER”’ and press Enter. 

The drawback to this method is that the contents of the 
upper-left corner of the screen will be changed. If this is a 
problem, execute the statement POKE @,A as the next line 
after the IF . . . THEN statement, which tests for the 
presence of the adapter, to restore the original character. 

The program in Listing 19-5 looks for the presence of 
each adapter. Lines 150-180 check for the presence of the 
Color/Graphics Adapter, with the IF ...THEN... 
ELSE statement on line 180 being TRUE if there is a 
Color/Graphics Adapter and FALSE otherwise. The MOD 
256 portion of line 170 is necessary to make sure the value 
is less than or equal to 255, because attempting to POKE a 
value greater than 255 causes an error. (We will describe 
the POKE statement in the next chapter.) 

Similarly, lines 210-240 check for the presence of the 
Monochrome Adapter, with the IF. . .THEN.. . ELSE 
statement on line 240 being TRUE if there is a Mono- 
chrome Adapter and FALSE otherwise. 

When you run the program in Listing 19-5, note the 
change in the upper-left corner of the screen. In text mode, 
an exclamation point or the letter P will often appear. As 
previously explained, the program changes the contents of 
this area of the display; this condition can be remedied by 
restoring the original value, as stored in the variable A, 
after the test is finished. 
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Listing 19-5. Determine Display Adapter Installed. 


166 REM Program to determine which display 

11@ REM adapters are installed in PC. 

128 CLS:KEY OFF 

138 REM Check for color/graphics adapter 

149 REM Point segment to graphics screen 

158 DEF SEG=&HB80d 

168 LOCATE 10,1@:PRINT "COLOR/GRAPHICS ADAPTER: "; 

178 A=PEEK(%):POKE 9, (A+1) MOD 256 

189 IF PEEK(@)<>(A+1) MOD 256 THEN PRINT "NO" ELSE 
PRINT "YES" 

19% REM Check for monochrome adapter 

209 REM Point segment to monochrome screen 

21 DEF SEG=&HBGO 

229 LOCATE 15,1@:PRINT "MONOCHROME ADAPTER: "; 

238 A=PEEK(@):POKE @,(A+1) MOD 256 

248 IF PEEK(@)<>(A+1) MOD 256 THEN PRINT "NO" ELSE 
PRINT "YES" 

258 LOCATE 28,10:PRINT "PRESS ANY KEY TO CONTINUE"; 

268 AS=INKEYS:IF AS="" THEN 268 

278 SCREEN Z,1 :CLS "Reset screen 

2808 END 


BASIC will perform operations on only one screen at a 
time. The program Switch allows us to select which 
screen to use, but we do not necessarily know which 
screen BASIC is using at any given time. For example, a 
PC could start up on either the monochrome or graphics 
screen. For a graphics program, we would like to test 
which screen we are on: when it is the monochrome 
screen, we would test for the Color/Graphics Adapter as 
previously described. If a Color/Graphics Adapter exists, 
we would switch screens, and, if not, we would print a 
message indicating that our program could not run on this 
system. 

We can tell which adapter is selected with a statements: 
DEF SEG=9 and press Enter, then IF PEEK(&H4 10) AND 
&H3@ <> &H3@ THEN PRINT ‘“‘COLOR/GRAPHICS 
ADAPTER” and press Enter. 

The program shown in Listing 19-6 switches the display 
to the Color/Graphics Adapter if one exists, or notifies the 
user if there is no Color/Graphics Adapter. First, the pro- 
gram checks which screen BASIC is using. If the screen is 
the Color/Graphics Adapter, the program ends. If the 
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monochrome screen is in use, the program checks for the 
Color/Graphics Adapter. If the Color/Graphics is present, 
then the program switches to that screen; otherwise, the 
user is notified that there is no Color/Graphics Adapter 
available. These program lines can be used as a part of 
any of your programs that require a Color/Graphics 


Adapter to run. 


426 
436 


Listing 19-6. Switch with Error Message. 


REM Program to switch display to color/graphics adapter 
REM if one exists. If not, program will notify user 
REM that the graphics screen does not exist. 

REM 

REM First, check if display is already on color/ 

REM adapter. If so, then we're done 

DEF SEG=8 ‘Point segment to BIOS variables 

REM Check current screen 

IF PEEK(1@48) AND 48<>48 THEN GOTO 398 . 

REM Display is not on color/graphics adapter. Check if 
REM color/graphics adapter exists. 

DEF SEG=&HB820 ‘Point segment to graphics screen 
REM Modify first memory location in screen 
A=PEEK(@):POKE 9, (At1) MOD 256 

REM If it stays modified, then adapter exists 

IF PEEK(%)=(A+1) MOD 256 THEN 320 

REM Notify that color/graphics adapter doesn't exist 
CLS:KEY OFF:LOCATE 18,20 

PRINT "Color/graphics adapter does not exist!" 

LOCATE 21,27:PRINT "PRESS ANY KEY TO CONTINUE"; 
AS=INKEYS: IF AS="" THEN 30@ ELSE CLS 

END 

REM Color/graphics adapter exists-switch display from 
REM the monochrome screen to the graphics screen 
REM Clear the monochrome screen 

KEY OFF:CLS 

DEF SEG=0:A=PEEK(1@4G):POKE 1848, (A AND 207) OR 32 
SCREEN 9:LOCATE 1,1,1,6,7 

KEY ON:WIDTH 42 

REM * 

REM * Program continues here if display is 

REM * sucessfully on the color/graphics adapter 

REM * 

END 
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SAVING THE SCREEN TO DISK—BSAVE AND BLOAD 


All the information displayed on the screen can be saved 
to a disk file at any time and restored at a later time with 
the BSAVE and BLOAD statements. The exact form of 
BSAVE depends on the screen mode selected. 

To save the information displayed on the screen in 
medium- or high-resolution graphics mode, type: 


DEF SEG=&HB888: BSAVE filename,9,&H4899 and press 
Enter 


where filename is a string constant or variable containing 
any valid filename, as described in the BASIC manual. 
After this command is executed, the screen will be stored 
in a 16K file filename. There must always be at least 16K 
of space available on the disk when saving a graphics 
mode screen. To save the screen in text mode, type: 


DEF SEG=&HB888: BSAVE filename,#,scrlenand press 
Enter 


In this example, scrlen is &H19@@ in 80-column text 
mode, and BSAVE creates the 4K file named filename. In 
40-column mode, scrlen is &H@899, and BSAVE creates a 
2K file. 

To save the monochrome screen, type: 


DEF SEG=&HB@2O: BSAVE filename,%,&H1099 and press 
Enter 


This creates the 4K file filename. Note that the mono- 
chrome screen requires the statement DEF SEG = &HBQOO 
while the Color/Graphics Adapter requires DEF SEG 
=&HB8@O. 

It is possible to save any number of screens, although 
each must have a different filename. 

For example, clear the screen in medium-resolution 
mode and draw two concentric circles with the command 
line: 


CIRCLE(169,198) ,58,2: CIRCLE(160,100) ,38,1 and 
press Enter 
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Save the screen to disk by typing: 


DEF SEG=&HB888: BSAVE 
"CIRCLE.SCR",8,&H4989 and press Enter 


The 16K file CIRCLE.SCR is created. 

Once a file has been created with BSAVE, the saved 
screen may be restored within seconds with the BLOAD 
statement. For example, clear the screen in medium-reso- 
lution mode and type: 


DEF SEG=&HB898: BLOAD ''CIRCLE.SCR" and press Enter 


The screen we previously saved is restored. 

In general, a saved graphics screen is restored with DEF 
SEG=&HB8@Q@: BLOAD filename where filename is the 
name of a file previously created with the BSAVE state- 
ment. The screen must be in the same mode (text, 
medium-resolution, or high-resolution) that it was in when 
the file was created, or unpredictable results can occur. In 
the graphics modes, the screen takes several seconds to be 
restored with BLOAD because of the time needed to read 
16K of information from the disk. 

To restore the monochrome screen, type the command: 


DEF SEG=&HB99%: BLOAD filename and press Enter 


Run the program in Listing 19-7 for a demonstration of 
saving and restoring a screen display via the BSAVE and 
BLOAD statements. Lines 120-180 create a screen image, 
lines 190-210 BSAVE the image to a disk file, line 230 
clears the screen, and lines 240-260 restore the image 
from disk to screen with the BLOAD statement. The DEF 
SEG=&HB800 statement on line 200 must be executed 
before an image can be saved from or restored to the 
graphics screen. 

Saving the screen can be useful for slide-type presenta- 
tions. The displays can be created beforehand and shown 
in rapid succession. This avoids the tedium of waiting 
through the drawing of a screen (remember how slow the 
CIRCLE statement is), and eliminates the possibility of 
bugs in a drawing program marring the presentation. Inci- 
dentally, BSAVE and BLOAD are also useful for saving 
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Listing 19-7. BSAVE and BLOAD Statements in 
Medium-Resolution Mode. 


100 REM Program to demonstrate the BSAVE and BLOAD 
110 REM statements in med-res graphics mode. 

120 SCREEN 1,%:COLOR 9,1:CLS:KEY OFF ‘Set screen 
138 REM Loop to draw concentric circles 

148 FOR I=98 TO 19 STEP -18 

156 CIRCLE(160,190),1 

168 REM Draw band with cyan or magenta 

176 PAINT STEP(G,@),(1\19 MOD 2)+1,3 


188 NEXT I 
190 REM Save to disk file "circles" 
208 DEF SEG=&HB8Z9 ‘Point segment to color screen 


218 BSAVE "circles",@, &H4G00 ‘Save 16K file 
22@ REM Now clear the screen and reload old screen 
238 CLS 

248 LOCATE 18,15:PRINT "RELOADING..." 

256 FOR I=1 TO 1900:NEXT I:CLS 

268 BLOAD "circles",@ ‘Load display back in 

276 LOCATE 24,9:PRINT "PRESS ANY KEY TO CONTINUE" ; 
288 AS=INKEYS:IF AS="" THEN 288 ELSE CLS 

299 END 


and loading machine-language subroutines to be used 
from BASIC programs. 

A note regarding the filename parameter to BSAVE and 
BLOAD: if you omit the file extension (the period followed 
by three characters), BASIC uses the extension .BAS, as it 
does for a BASIC program. The command BSAVE 
“TEST’’,@,&H4@@@ creates the file TEST.BAS, rather 
than the file TEST as you might expect. Similarly, BLOAD 
““TEST”’,@ causes the computer to try to load the file 
TEST.BAS. If you want to use the name TEST with no 
extension, you have to use BSAVE “‘TEST.’’,@,&H4000 
and BLOAD “‘TEST.”’,@ where the period is included in 
the file specification. 

The BASIC manual is a good resource if you have any 
questions about the BSAVE and BLOAD statements. We 
will describe BSAVE and BLOAD in more detail in the next 
chapter. 
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PRINTING THE SCREEN 


Screen displays are certainly useful, but often a hard copy 
of the screen is needed. Sometimes photographs of the 
screen will suffice, but this takes time and skill. An alter- 
native is ‘‘dumping”’ the screen to your printer. 

A text-mode screen can be dumped immediately by 
holding down the Shift key and pressing the PrtSc key, 
which is located just below the Enter key. This will work 
with any printer. 

There is no built-in way to print a graphics screen, but 
there are a number of software products available that 
allow you to print a graphics screen on an IBM dot-matrix 
printer. There are also products that allow a medium-reso- 
lution screen to be printed in color on a Data Products P 
Series™ color printer. If you need a hard copy of the graph- 
ics screen, these screen-dump programs are often your 
best bet. 


THE KEYBOARD 


The keyboard is not directly related to graphics; however, 
proper control of keyboard input is essential to good game 
design and is useful in almost any software package. For 
example, if a program is written for uppercase input only, 
it is better to permanently ‘‘shift’’ the keyboard in soft- 
ware than to require the user to make sure of the shift 
state. Our main purpose here is to ensure that you are able 
to handle some of the PC’s peculiarities. 

For example, there is no way for the user to tell the state 
of either of the Caps Lock or Num Lock keys. Most com- 
puters have a small red light that indicates when the keys 
are set, but the PC does not. The PC user could, for exam- 
ple, accidentally press the Num Lock key and thus, for 
example, end up typing the number 7 instead of the Home 
key. 

It is possible to check and to set the state of the Num 
Lock and Caps Lock keys. To see if the Caps Lock key has 


P Series is a trademark of Data Products Corporation. 
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been toggled on (so that letters are uppercase), use an IF 
. . . THEN statement such as DEF SEG=@: IF 
PEEK(&H417) AND &H49 THEN PRINT ‘“‘CAPS LOCK 
ON” ELSE PRINT “‘CAPS LOCK OFF”. Similarly, the 
state of Num Lock can be checked with DEF SEG=9@: IF 
PEEK(&H417) AND &H2@ THEN PRINT “NUM LOCK 
ON”? ELSE PRINT ‘“‘NUM LOCK OFF’. (When the Num 
Lock key is ‘‘On,”’ the keypad produces numeric output on 
the screen.) Try these with the Caps Lock and Num Lock 
keys on and off. 

The program in Listing 19-8 monitors, from BASIC, the 
Caps Lock and Num Lock states. The program repeatedly 
loops to check the state of the keys via the PEEK state- 
ment, and updates the information on the display screen. 
The key lines are line 230, which checks the Caps Lock 
state, and line 250, which checks the Num Lock state. 
Toggle the Caps Lock and Num Lock keys and watch the 
program register the changes. The DEF SEG=@ statement 
on line 180 must be executed before the state of the keys 
can be checked. 


Listing 19-8. Monitor Caps Lock and Num Lock. 


160 REM Program to monitor the states of the 

118 REM CapsLock and NumLock keys. 

128 SCREEN 1,@:COLOR @,1:CLS:KEY OFF 

13@ REM Print labels 

149 LOCATE 3,19:PRINT "CAPSLOCK STATE" 

158 LOCATE 8,10:PRINT "NUMLOCK STATE" 

168 LOCATE 15,8:PRINT "PRESS THE = KEY TO END" 

178 REM Point segment to BIOS variables 

188 DEF SEG=6 

19% REM Loop to keep checking until the 

208 REM = key hit 

219 IF INKEYS="=" THEN CLS:END 

226 REM CapsLock state 

236 LOCATE 5,15:IF PEEK(&H417) AND &H49 THEN 
PRINT "UPPERCASE" ELSE PRINT "LOWERCASE" 

248 REM Numlock state 

258 LOCATE 16,15:IF PEEK(&H417) AND &H2@ THEN 
PRINT "NUMERIC “ ELSE PRINT "NONNUMERIC" 

268 GOTO 219 


The Caps Lock state is set to uppercase with DEF 
SEG=@: POKE &H417,PEEK(&H417) OR &H4@ and 


253 


Graphics for the IBM PC 


set to lowercase with DEF SEG=@: POKE &H417, 
PEEK(&H417) AND (NOT &H4@). 

These commands set or reset the Caps Lock key regard- 
less of its current state. Of course, the user could change 
the state again, so you should frequently select the desired 
Caps Lock state in programs you write that control the 
Caps Lock state. The same is true for the Num Lock state. 

The NumLock state is set to numeric with DEF SEG=@: 
POKE &H417,PEEK(&H417) OR &H2@ and set to nonnu- 
meric with DEF SEG=@: POKE &H417,PEEK(&H417) 
AND (NOT &H2Q). 

The program in Listing 19-9 keeps the Caps Lock state 
off (lowercase) and the Num Lock state on (numeric). 
Enter and run it to see that you cannot type uppercase let- 
ters or cursor-control keys by using the Caps Lock or Num 
Lock keys. Line 230 forces the Caps Lock state to lower- 
case, and line 250 forces the Num Lock state to numeric. 
This is done each time through the loop that checks the 
keyboard for characters (lines 210-300), so that if you tog- 
gle either key, it will soon be reset. 

The DEF SEG=@ statement on line 160 must be exe- 
cuted before the state of the Caps Lock or Num Lock keys 
can be set. 


CLEARING EXCESS KEYS 


The PC allows users to type ahead, storing the extra char- 
acters for later use in what is called a buffer. At some 
point, you have probably noticed that only a certain num- 
ber of characters can be stored when typing ahead, and, if 
this number is exceeded, the PC emits a piercing squeal 
and ignores the extra characters. Fifteen characters can be 
stored in the buffer, and it is easy to think of a situation 
where a user could type more than 15 characters while the 
program performed some other task. When such an occur- 
rence is likely, the program should clear the buffer of 
excess characters before looking for new input; otherwise, 
old characters typed by mistake may be incorrectly used 
as current input. For example, in those cases where 
INKEY$ is used to wait for a key press before proceeding, 
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Listing 19-9. Control aps Lock and Num Lock. 


108 REM Program to demonstrate controlling the 

118 REM CapsLock and NumLock states. CapsLock 
128 REM is kept LOWERCASE, and Numlock is kept 
130 REM NUMERIC. 

146 SCREEN 1,@:COLOR 9,1:CLS:KEY OFF 

158 LOCATE ,,1 ‘Set cursor on 

168 DEF SEG=3 ‘Point segment to BIOS variables 
178 REM Initial prompts 

189 PRINT "TYPE AT THE KEYBOARD, AND TRY TO CHANGE" 
198 PRINT " THE CAPSLOCK AND NUMLOCK STATES." 

208 PRINT " PRESS THE = KEY TO EXIT.":PRINT 
219 REM Loop to input characters & set key states 
220 REM Set CapsLock lowercase 

230 POKE &H417,PEEK(&H417) AND (NOT &H4G ) 

246 REM Set NumLock numeric 

258 POKE &H417,PEEK(&H417) OR &H2¢ 

266 AS=INKEYS "Get character, if any 
270 REM Check for character, end if = 

280 IF AS="" THEN 230 ELSE IF AS="=" THEN 310 

296 PRINT AS; ‘Echo character to keyboard 
308 GOTO 219 

310 REM Turn NumLock back to nonnumeric to end 

329 POKE &H417,PEEK(&H417) AND (NOT &H2@) 

338 CLS:END 


the program should clear the buffer before waiting for a 
key press, so that a key pressed at some earlier time but 
never read does not cause the program to proceed. 

As long as the excess characters are to be ignored, it is 
easy to dispose of them. One method, recommended in 
Appendix I of the BASIC manual, is to execute the com- 
mand DEF SEG=@: POKE 1959,PEEK(1952). This single 
command empties the buffer. The one drawback is that 
this is a command specific to the version of BASIC used 
and to the IBM PC. In general, such methods should be 
avoided when possible. An alternative method is a pro- 
gram line such as 199 IF INKEY$<>”’”’ THEN 190 
which obtains keyboard strokes, one at a time, until the 
buffer is empty. For example, enter NEW to clear memory, 
type the program in Listing 19-10, and RUN the program. 
Notice that it is difficult to get the PC to beep, even by typ- 
ing fast, because on line 180, INKEY$ is used to clear all 
pending characters. It is possible to produce a beep by 
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very rapid typing, but the object is to prevent the user 
from being distracted or confused during reasonable oper- 
ation of the machine. 

This method will work with any version of Advanced 
BASIC on any machine. 


Listing 19-10. Key Buffer Clearing with INKEYS. 


100 REM Program to demonstrate the use of INKEYS$ 
119 REM to clear the key buffer 

128 REM Print 100 numbers, clearing buffer 

138 REM in between PRINTS 

149 SCREEN 1,9:COLOR 9,1:CLS:KEY OFF 

158 FOR I=1 TO 100 

169 PRINT I 

178 REM Read characters out of buffer until empty 
188 IF INKEYS<>"" THEN 180 

196 NEXT I 

200 LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE" ; 
218 AS=INKEYS$:IF AS=""" THEN 216 ELSE CLS 

228 END 


ENTERING ALL 255 CHARACTERS 


As described previously, there are 255 characters on the 
PC but not 255 keys on the keyboard. Use the following 
procedure to type any of the 255 characters. Hold down 
the Alt key as you type all three digits of the desired char- 
acter’s ASCII code (as shown in Appendix A) on the 
numeric keypad. Release the Alt key. The character will 
be produced as if you had pressed a key for it. For exam- 
ple, while holding down the Alt key, press the 0, 6, and 5 
keys on the numeric keypad. Release the Alt key, and the 
character A will appear. If you look at Appendix A, you 
will see that 65 is the ASCII value of A. This method can 
be used, if necessary, to type any of the PC’s 255 charac- 
ters. 
For instance, type: 


SCREEN 9 and press Enter 
PRINT "' 
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but do not press Enter. (We selected text mode because 
only the text-mode screen can produce characters 128- 
255.) Now hold down the Alt key and press 2, 5, and 1 on 
the numeric keypad. Release the Alt key. A square-root 
symbol is produced, and will function like any other char- 
acter. Type a closing double quote and press the Enter 
key. The square-root symbol is displayed. 

The characters with ASCII values 9 through 31, as well 
as 127, cannot be produced while typing in immediate 
mode by the Alt method, although some of these charac- 
ters produce special results. For example, Alt 7 produces a 
beep. The INPUT statement also fails to recognize these 33 
characters. All Alt-generated characters are recognized by 
INKEY$ so they can be typed into a program in response 
to acommand such as A$=INKEY$. 

There are also some situations in which BASIC becomes 
“‘confused’’ by the presence of some of these 255 charac- 
ters in a program. Because the same result can usually be 
produced with the CHR§$(x) function, we suggest you 
avoid the Alt method of typing characters unless abso- 
lutely necessary. For example, the square-root sign could 
have been produced with PRINT CHR$(251) instead of 
using the Alt key. 


THE FULL PC CHARACTER SET 


BASIC provides no easy way to print the special-function 
characters, such as character 7,.the beep. However, the PC 
can print a full 255-character set, as shown in Appendix B. 
We must use a machine-language subroutine to print the 
characters unavailable from BASIC. 

Several chapters are required to introduce you properly 
to the use of machine language from BASIC. What we will 
do is present the BASIC program lines required to produce 
any of the 255 characters in any available color. 

The program shown in Listing 19-11 prints each of the 
255 characters. Type and run it, noting that all 255 char- 
acters, including characters 7-13 and 28-31, appear. Type 
the DATA statements carefully, and double-check your 
entries. 
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Listing 19-11. Print 255 PC Characters. 


1@@ REM Program to demonstrate printing all 255 
118 REM PC characters. 
128 SCREEN J,1:WIDTH 40:LOCATE ,,@:COLOR 7,9,0: 

CLS:KEY OFF ‘Set screen 
138 DEF SEG ‘Point segment to BASIC interpreter 
149 REM String SUBRTS$ will hold machine-language routine 
158 SUBRTS="" 
169 REM Loop to load machine-language routine 
176 REM into SUBRTS 
188 FOR J=1 TO 26:READ I:SUBRTS=SUBRTS$+CHR$ (I) :NEXT J 
198 DATA &h55, &h8B, &hEC, &h8B, &h5E, &h98, &h8A, &hB7, &h8B 
200 DATA &h5E, &h06, &h8A, &hlF, &hB4, &hW9I, &h28, &hFF, &hBI 
219 DATA &h@1, &h@G, &hCD, &h1G, &h5D, &hCA, &hD4, EhOd 
228 COLR®=7 ‘print characters in white 
238 A=VARPTR(SUBRTS) 'Get SUBRTS$ descriptor address 
248 REM Get address of string contents (where machine- 
250 REM language routine is stored) from descriptor 
26@ SPECPRINT=PEEK (A+1)+PEEK(A+2)*256 
270 REM Loop to call routine with all ASCII values from 
288 REM 1 to 255, to print all characters 
299 FOR CHAR%=1 TO 255 
3@2 REM Pause in the middle so the characters can be studied 
31 IF CHAR$=126 THEN LOCATE 24,8: 

PRINT "PRESS ANY KEY TO SEE MORE"; 

328 IF CHAR?=126 THEN IF INKEYS="" THEN 320 ELSE CLS 
336 CALL SPECPRINT (CHAR, COLR%) ‘Call routine to print 
349 REM Space over two columns, drop to left edge & 
350 REM advance two lines ifat right margin 
368 IF POS(X)+2>4@ THEN PRINT:PRINT ELSE LOCATE +POS(X)+2 
37@ NEXT CHARS 
380 LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
398 AS=INKEYS$:IF AS="" THEN 396 ELSE CLS 
422 END 


Lines 130 through 260 must appear before any charac- 
ters are to be printed. Then the statement CALL 
SPECPRINT(char,color) will print the character with the 
ASCII value char in color color at the current cursor loca- 
tion. Char and color must be integers; this is done either 
by putting percent signs after the variable name, as we 
have done with CHAR% and COLR% or by executing an 
appropriate DEFINT statement at the beginning of the pro- 
gram. Char can have any value between 1 and 255 as 
shown in Appendix B. If char is 67, for example, the char- 
acter C is printed. Color may be between @ and 3 in 
medium-resolution mode or @ or 1 in high-resolution 
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mode. In text mode, color must be a valid attribute byte as 
discussed in Chapter 16 and in the Technical Reference 
manual. 

When you execute the statement CALL SPECPRINT 
(char,color), the last DEF SEG statement executed must 
have been DEF SEG with no trailing equal sign or number. 
If you have executed a different DEF SEG since the origi- 
nal DEF SEG, which in the program shown in Listing 19- 
11 occurs on line 130, you must execute DEF SEG again. 


Note: The cursor location does not change after a 
character is printed with the machine-language sub- 
routine; if you do not execute a LOCATE statement to 
move the cursor location, the next PRINT or CALL to 
the subroutine will erase the previous character. 


The program shown in Listing 19-12 demonstrates the 
use of the color parameter to produce multicolored text in 
medium-resolution graphics mode. Line 330 selects each 
of the 15 colors, other than black, for character colors. 
Color 8 is a gray that may not display clearly unless your 
screen brightness is high. 


ALIGNING THE SCREEN 


The left margin of the screen is displayed too far to the left 
on many television sets and composite monitors. Often the 
cursor is not even visible when it is in the upper-left cor- 
ner. This condition can be corrected with the DOS com- 
mand MODE,R,T. This command is typed in response to 
the DOS A> prompt, and causes the display to be shifted 
to the right. A test pattern is displayed, and you are asked 
whether the screen is aligned correctly. Type Y if it is; if 
not, type N, and the shift is repeated. To shift the display 
to the left, type: 


MODE,L,T and press Enter 


in response to the DOS A> prompt. The DOS disk must be 
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398 
486 
416 


in drive A. The screen alignment performed with the MODE 
command remains in effect until the PC is rebooted or 


Listing 19-12. Print 255 PC Characters in Color. 


REM Program to demonstrate printing all 255 
REM PC characters in color. 
SCREEN 9,1:WIDTH 48:LOCATE ,,%:COLOR 7,9,9: 
CLS:KEY OFF 'Set screen 
DEF SEG ‘Point segment to BASIC interpreter 
REM Machine-language subroutine will be stored 
REM in SUBRTS$ 
SUBRTS="" 
REM Store machine—language subroutine in SUBRT$ 
FOR J=1 TO 26:READ I:SUBRTS=SUBRT$+CHR$(I):NEXT J 
DATA &h55,&h8B, &hEC, &h8B, &h5E, &h8, &h8A, &hG7, &h8B 
DATA &h5E, &h@6, &h8A, &h1F, &hB4, &hB9I, &h28, &hFF, &hBI 
DATA &h@1,&h9@,&hCD, &h1G, &h5D, &hCA, &hG4, &hG 
REM Get descriptor address for SUBRT$ 
A=VARPTR(SUBRTS ) 
REM Get string content's address (where machine— 
REM language subroutine is) from descriptor 
ADDR=PEEK (A+1 )+PEEK (A+2)*256 
REM Loop through ASCII values for all 255 characters 
FOR CHAR@=1 TO 255 
REM Pause in the middle so characters can be studied 
IF CHAR?=126 THEN LOCATE 24,8: 
PRINT "PRESS ANY KEY TO SEE MORE"; 
IF CHAR$=126 THEN IF INKEYS="" THEN 3108 ELSE CLS 
REM Select in turn all 16 colors except black 
COLR=CHAR% MOD 15 +1 
CALL ADDR(CHAR%,COLR$) ‘Print colored character 
REM Move two columns to the right, move to left margin 
REM and advance two lines if at right margin 
IF POS(X)+2>49 THEN PRINT:PRINT ELSE LOCATE ,POS(X)+2 
NEXT CHARS 
LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE"; 
AS=INKEYS:IF AS="" THEN 480 ELSE CLS 
END 


turned off. 


For more information on the MODE command, or any 


other DOS command, refer to the DOS manual. 


VARIABLE SCROLL WINDOW 


BASIC usually treats the working screen area as rows 1 
through 24 with row 25 reserved for the function keys. It 
is possible to redefine the top and bottom of the area that 
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BASIC uses as the working screen for text. To set a new 
top row for the working area, type: 


DEF SEG: POKE 91,n and press Enter 


where n is the number of the top line of the working area. 
Rows above row n will not be scrolled. 
To set the bottom row of the working area, type: 


DEF SEG: POKE 92,n and press Enter 


where n is the row number of the bottom of the working 
area. Only rows between the top and bottom rows will be 
scrolled. For example, type: 


CLS: FOR I1=65 TO 65+21: PRINT CHRS(I): 
NEXT I and press Enter 


to put the letters A through V on each row. Now type: 
DEF SEG: POKE 91,5: POKE 92,15: LOCATE 15 


and repeatedly press the Enter key to see which portion of 
the screen scrolls. Anything placed outside the working 
area, or scroll window, remains. Make sure the cursor is in 
the ‘“‘working area’ before typing additional commands. 
The LOCATE 15 was executed to put the cursor at the bot- 
tom of the scroll window. Values below 1 or above 25, 
which represent the boundaries of the scroll window, are 
to be avoided. 

When producing graphics, the scroll window concept is 
most useful. You can establish any section of the screen as 
an input area which will scroll, and you can produce 
graphics on the remaining area of the screen that won’t 
scroll. This is similar to our use of row 25 in the Racecar 
game as a stable area of the screen. We can have the best 
of both worlds: a scrolling input area and a static display 
area. 

The program in Listing 19-13 demonstrates the use of a 
scroll window with a graphics display. Line 150 sets the 
top scroll row to row 22, so only the three rows at the bot- 
tom of the screen, 22, 23, and 24, are used for text entry 
and are scrolled. The rest of the screen is used for graph- 
ics. This graphics area, which is outside the scroll window, 
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does not scroll. Note that line 230 restores the normal 
scroll window at the conclusion of the program. A screen 
remaining in a three-row scroll window after a program 
ended would confuse the user. The DEF SEG statement on 
line 140 must be produced before the scroll window can be 
modified. 

This technique is applicable to any version of Advanced 
BASIC, but the specific locations 91 and 92 are not guar- 
anteed to work with versions other than 1.10 on the IBM 
Pe} 


Listing 19-13. Scroll Window in Medium-Resolution 
Mode. 
109 REM Program to demonstrate a scroll window 


116 REM in medium-resolution graphics mode. 
126 REM ‘Text is displayed only on rows 22 thru 24. 


13@ SCREEN 1,%3:COLOR 9,1:CLS:KEY OFF "Set screen 

148 DEF SEG "Point segment to BASIC interpreter 
158 POKE 91,22 'Set top of window to row 23 

168 LOCATE 23,1 ‘put cursor inside window 


170 REM Loop to prompt for figure to draw 
188 FOR I=48 TO 280 STEP 49 
198 GOSUB 276 ‘prompt for figure & draw it 


210 PRINT:PRINT:PRINT ‘Clear the window 

228 REM Reset window 

230 POKE 91,1 

24G LOCATE 24,8:PRINT "PRESS ANY KEY TO CONTINUE" ; 

250 AS=INKEYS:IF AS="" THEN 259 ELSE CLS 

268 END 

279 REM Subroutine to prompt for figure type 

286 REM and then draw it 

296 PRINT:PRINT "PRESS 1 FOR CIRCLE, 2 FOR SQUARE"; 

38 =INKEYS:IF AS="" THEN 388 ELSE A=VAL(AS ) 

310 REM Try again if not a valid selection 

320 IF A<>1 AND A<>2 THEN PRINT "INCORRECT-TRY AGAIN": 
GOTO 299 

338 REM Draw a circle 

349 IF A=l THEN CIRCLE (I,108),15,2:PAINT STEP(9,9),2: 
PRINT "CIRCLE DRAWN." 

358 REM Draw a square 

360 IF A=2 THEN LINE(I-15,85)-STEP(39,38),1,BF: 
PRINT "SQUARE DRAWN." 

379 RETURN 
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Our thanks to O. B. Canobie; his contribution to the 
“Star-Dot-Star’’ column in the Volume 1, Number 5 issue 
of PC World magazine was the basis for this section. 


FILL YOUR OWN GRAB BAG 


We have presented some useful information about the PC, 
but there is more waiting to be discovered. If you do much 
programming, you will eventually need all the knowledge 
about the PC you can gather. Good sources for further 
study are: the Technical Reference manual, the appendi- 
ces to the BASIC manual, columns such as ‘“‘Star-Dot- 
Star’’ in PC World, and user groups. The material in the 
next chapter will help you understand how some of the 
methods presented here work. 
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INSIDE PC GRAPHICS 


The commands, programming techniques, and hints 
described in preceding chapters can all be used without 
understanding how they work; indeed, one of the 
strengths of Advanced BASIC is that the user can ignore 
the machine’s hardware and concentrate on program- 
ming. However, many people want to know how the PC 
works and enjoy spending their time exploring the screen, 
the Basic input/output system (BIOS), DOS, and so on. The 
knowledge gained often proves to be, not only interesting, 
but useful as well. For example, the ability to produce 
color in high-resolution mode, described in the previous 
chapter, was discovered by such exploration. For those of 
you ready to learn advanced applications, we will describe 
the basic workings of graphics on the PC. 

Because our area of focus is graphics, we will primarily 
describe the organization and use of the display screen, as 
well as several useful points about accessing the entire 
memory area of the PC. If you are content with the power 
of Advanced BASIC, you still might want to skim this 
chapter. An understanding of what is going on inside the 
computer will aid you in remembering the capabilities and 
limitations of the various graphics commands which 
might seem quite arbitrary otherwise. 

One more reason to read on: in the “‘good old days,” the 
microcomputer world consisted of hobbyists and engi- 
neers; everyone took pride in ‘‘knowing’’ their computer 
“inside and out.” Today, many of us feel it is most excit- 
ing and rewarding to work with the computer at the 
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machine level, even if that opinion does relegate us to the 
“computer nerd” or ‘‘bytehead”’ categories! 

Before we begin, we should mention that IBM’s Techni- 
cal Reference manual is an invaluable guide to the inner 
workings of the PC. 


SOME USEFUL TERMS 


We will use the term byte throughout this chapter. A byte 
is simply one memory location in the PC. A byte consists 
of eight binary digits (digits in base 2), called bits. Each 
bit can have the value O or 1, and each byte can have any 
integer (whole number) value in the range O to 255. You 
may recall that there are 255 characters available on the 
PC; this is no coincidence, but occurs because one byte 
holds one character, and the value of a byte can be no 
higher than 255. 

Each memory location is referenced by an address. An 
address is a number which specifies a single memory loca- 
tion. Addresses might be thought of as somewhat analo- 
gous to array subscripts, in that address @ selects the first 
location, 1 the second location, and so on. It is customary 
to specify addresses in hexadecimal (base 16) notation, 
with the letters A through F used as digits in addition to @ 
through 9 used in decimal (base 10) notation. In general, 
we will follow convention and give addresses in hexadeci- 
mal notation, so don’t be surprised to see letters mixed in 
with numbers. It’s not necessary for you to know anything 
about hexadecimal notation to benefit from this chapter, 
but you should acquire at least a passing familiarity with 
it if you want to do advanced work with microcomputers. 

In BASIC, hexadecimal numbers are prefixed with &H. 
For example, the hexadecimal number B89 is stored 
in the variable POINTER with the command POINTER = 
&HB8O¢G 

The letter K, following a number, is usually used to 
mean ‘‘about 1000.” 1K is equal to 1024. This is because 
computers use binary (base 2) notation, so numbers are 
often powers of 2, such as 8, 16, 64, 256, 1024, and so on. 
Incidentally, the reason hexadecimal notation is often 
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used in the computer world is that it is easy to translate 
from hexadecimal (which people can use) to binary (which 
computers use) and back, while it is not easy to do so with 
decimal notation. Important areas of memory tend to 
begin at addresses that are powers of 2, while addresses, 
device control bytes, and screen memory bytes are most 
easily expressed in binary or hexadecimal notation. 


MEMORY-MAPPED VIDEO 


The IBM PC’s display screen is linked to an area of the 
computer’s memory. The Color/Graphics Adapter con- 
stantly scans this area of memory to generate the video 
signal that makes the image appear on the screen. The 
contents of this memory form the basis for whatever 
appears on the screen, with each memory location, or 
byte, corresponding to a screen location. In text mode, for 
example, a value of 65 in the first byte of the Color/Graph- 
ics Adapter screen memory would cause the character A 
to appear in the upper-left corner of the screen. Thus, the 
PC’s display is called a memory-mapped display, because 
the contents of an area of memory ‘“‘map out’”’ what is to be 
shown on the screen. 

The concept of the memory map explains how BSAVE 
and BLOAD work. BSAVE stores the contents of a speci- 
fied area of memory to disk, while BLOAD restores the 
information from disk to an area of memory. Because the 
screen memory map is an area of memory, BSAVE and 
BLOAD can manipulate the screen information as readily 
as the contents of any other memory location. We BSAVE 
the contents of the screen memory area to disk, then 
BLOAD the saved information back into the screen mem- 
ory to restore the display. 

There are separate memory-map locations for the 
monochrome display and Color/Graphics Adapter screens. 
The monochrome screen begins at address BQ@O:OO00; 
the Color/Graphics Adapter screen begins at address 
B80@:0900. (Remember that we are using hexadecimal 
notation.) 

Two numbers separated by a colon is the standard way 
to specify addresses with the 8088 microprocessor chip. In 
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order to address the PC’s potential one megabyte of mem- 
ory (that is, to specify a memory location from among the 
approximately one million available on the PC), the 8088 
uses two values. One is a base value, which defines a seg- 
ment, and the other is an offset from that base value. The 
offset value can address a maximum of 64K, or about 
65,000 bytes of memory relative to the segment value 
(which can point anywhere in the one-megabyte memory 
space of the PC). This is why BASIC can use only a 64K 
work space—a segment register is set when the program is 
started and is left unchanged so only the 64K addressable 
memory via the offset value is available. An address of the 
form B8@9:0999 means the location pointed to by segment 
value B8@9 and offset value 900. We will discuss shortly 
to what memory location a segment:offset pair points. 


ACCESSING MEMORY FROM BASIC 


BASIC allows the programmer to specify both segment 
and offset values to get data into and out of the specified 
location. Thus, the programmer can access any location in 
memory, including, as described previously, the screen 
memory areas. 

The statement DEF SEG=n sets the segment value, 
where the optional parameter n is a value between @ and 
65535 or between &H9999 and &HFFFF. (The two ranges 
are equivalent.) The space between DEF and SEG is 
required as is the equal sign if n is specified. For example, 
DEF SEG=&HB8Q9@ sets the segment value to point to the 
beginning of the Color/Graphics Adapter screen memory 
map. Remember that this is the first statement we used 
when saving and restoring the screen. This DEF SEG= is 
necessary so that subsequent commands will operate in 
the screen memory area. 

DEF SEG, with no value or equal sign, is a valid state- 
ment and sets the segment to point to the BASIC program 
itself. Thus, when we set the scroll window values in 
Chapter 19, we modified the version of Advanced BASIC 
that was in memory. Because the BASICA.COM program 
on the disk remained unchanged, the modification was 
only temporary. 
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The segment value set with the DEF SEG statement 
remains in effect until another DEF SEG is executed or 
until BASIC is exited with the SYSTEM command, so you 
do not have to execute a DEF SEG for every BSAVE or 
BLOAD. However, extra DEF SEG statements do no harm. 
If you frequently change the segment value, it’s a good 
practice to be sure your programs are pointing to the cor- 
rect area of memory. 

The PEEK and POKE statements access a specific mem- 
ory location relative to the segment defined with DEF 
SEG. The statement PEEK(address) returns the value 
stored at location address, where address is an offset value 
relative to the defined segment, in the range @ to 65535. 
For example, DEF SEG=&HB8Q9@: PRINT PEEK(8) prints 
the value of the byte at address B809:0998, the ninth loca- 
tion in the Color/Graphics Adapter memory map. 
(Remember that the first location is location B8Q@:0009.) 

The statement POKE address,i puts the value i into the 
memory locations address, where address is relative to 
the current segment as assigned by the last DEF SEG 
statement. For example, select text mode and type: 


DEF SEG=&B809: POKE 9,66 and press Enter 


to put the value 66 into the first location in the Color/ 
Graphics Adapter memory. This location corresponds to 
the upper-left corner of the screen, and, indeed, the letter 
B appears in that location on your screen. 

The manner in which a segment:offset pair specifies a 
memory address is not as simple as it might be. There are 
1024K potential memory locations in the PC, with the 
actual addresses ranging from O to FFFFF (hexadecimal). 
The memory location addressed by a segment:offset 
address is determined by multiplying the segment value 
by 16 and adding that product to the offset. This process is 
equivalent to putting an additional zero (hexadecimal) at 
the right end of the segment value and then adding the 
resulting value to the offset. For example, 0199:0950 
points to 91999 + 9950 = address 1959 (all in hexadeci- 
mal). 990@:195@ and 9195:099% would also point to 
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address 1959 (hexadecimal). Obviously, many different 
combinations of segment:offset can point to the same 
actual memory location. 

PEEKing around the PC with various segment values is 
a great way to explore the workings of the machine. For 
example, the interrupt vectors, which indicate the loca- 
tions of input, output, and disk functions, start at QOQO: 
9999. The BIOS (Basic Input/Output System) variables 
start at 0949:0990. These memory locations select which 
the text goes to, store Caps Lock and Num Lock states, 
disk parameters, cursor location, the key buffer, and much 
more. When we toggled the state of the Num Lock and 
Caps Lock keys in Chapter 19, we modified the memory 
location in which the PC stores the states of these keys. 

DOS, which provides high-level support to programs, 
begins at 9969:0090. The BIOS itself, with all BASIC 
input/output functions, starts at FQQQ:EQ@M, while Cas- 
sette BASIC, much of which is used by Advanced BASIC, 
starts at FQQQ:6000. 

DOS, Cassette BASIC, and the BIOS can all be explored 
with the DEBUG.COM program, but you will need to learn 
a little about Assembly language before you start explor- 
ing. The DOS manual is a good reference for DOS, while 
IBM’s Technical Reference manual lists the Assembly lan- 
guage source program for the BIOS, along with other use- 
ful information regarding the internal workings of the PC. 
There is, unfortunately, no good reference for the internal 
workings of Cassette BASIC. 

Although all of the above is useful for the most ambi- 
tious, those of us concerned primarily with exploring the 
graphics screens from BASIC need only remember that 
DEF SEG=&HB8Q@@ sets the segment pointer to the begin- 
ning of the Color/Graphics Adapter memory map. DEF 
SEG=&HBQ@QQ sets the segment pointer to the beginning 
of the Monochrome Adapter memory map. 


SCREEN MEMORY ORGANIZATION—TEXT MODE 


Now that we know where the screen memory is, we need 
to discuss just how that memory translates onto the dis- 
play screen. 
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Each memory location is one byte in size. What this byte 
causes to be displayed on the screen depends on the mode 
the screen is in. In text mode, each even-numbered byte in 
the screen memory map defines a character to be dis- 
played. A value in an even-numbered byte causes the cor- 
responding ASCII character to be displayed. (See Appen- 
dix B for the full set of characters and ASCII values.) Each 
odd byte contains the attribute for the character, control- 
ling the foreground, background, and blink characteristics 
of the character, as discussed in Chapter 16. There are 
1000 characters on the screen in 40-column mode, and, 
because each character requires two bytes, 2000 bytes are 
needed for a 40-column display in text mode. The bytes at 
offsets O and 1 control the character in the upper-left cor- 
ner. (When we are discussing offsets in the screen memory 
map, we will use decimal numbers.) The bytes at 2 and 3 
control the character at row 1, column 2. This continues 
for 40 columns to the right edge of the screen, then the 
next bytes control the character at row 2, column 1, and 
so on, one row at a time to the bottom of the screen. For 
example, in 40-column color text mode type: 


DEF SEG=&HB8@G: POKE @,65: POKE 2,66: POKE 4,67 
and press Enter 


and the characters ABC instantly appears, left to right on 
the top row. Type: 


POKE 88,89 and press Enter 
and Y appears on the second row. Type: 
POKE 1998,98 and press Enter 


and Z appears at the lower-right corner. This is the last 
location in the 40-column text-mode screen memory Map. 
The attribute byte can also be changed. For example, 


type: 
POKE 1,1 and press Enter 


sets character A at row 1, column 1 to the color blue. Simi- 
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larly, POKE 5,32 causes the C at row 1, column 3 to be 
displayed in black against a green background. 

The 80-column mode is similar to 40-column mode. The 
memory map is 4000 bytes, rather than 2000 bytes, and 
80 pairs of bytes represent each row. For example, select 
80-column mode and type: 


DEF SEG & HB8@@:POKE 8,65: POKE 168,66: POKE 
3998,67 and press Enter 


The character C is at the last character location in the 80- 
column text-mode screen memory map. 

You can read values back out of the screen memory as 
easily as you put them in. Select 40-column mode, then 
type: 

POKE 19,65: PRINT CHR$(PEEK(1@)) puts the charac- 
ter A on the screen, reads its ASCII value from memory, 
converts it to a character, and PRINTs it. 

For reasons to be explained subsequently, there are over 
16,000 bytes of memory on the Color/Graphics Adapter. 
Yet, text mode requires as few as 2000 and no more than 
4000 bytes of memory. The extra memory is used to pro- 
vide the extra screens that are available in text mode. For 
example, in 40-column text mode, the first 2000 bytes are 
used for screen 9. 48 bytes are not used, then the next 
2000 bytes, starting at offset 2048, are used for screen 1. 
In 40-column text mode, clear the screen and type: 


DEF SEG=&HB8@9: POKE 2048,ASC(''*"') and press Enter 
(The ASC(x) function converts the character x to its ASCII 


value, so that ASC(’’A’’) would, for example, return 65.) 
Nothing appears. Now type: 
SCREEN,,1,1 and press Enter 

to switch to screen page 1, and there is our missing aster- 
isk! There are 6 other 2000-byte memory maps starting at 
offsets 4996, 6144, 8192, 19249, 12288, and 14336, 
respectively. 

In 80-column text mode, there are 4 memory maps 
starting at offsets @, 4996, 8192, and 12288, respectively. 
For example, type: 


SCREEN, ,8,9 and press Enter 
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to return to page @, and type: 
WIDTH 8% and press Enter 


to select 80-column mode. (If you have exited BASIC since 
the last DEF SEG, you will have to type DEF SEG= 
&HB80% again.) Now type: 


POKE 8192,ASC("'a'') and press Enter 
Now type: 
SCREEN, ,2,2 and press Enter 
and there’s our @ on screen 2. Type: 
SCREEN, ,9,% and press Enter 


to return to screen page @. 


SCREEN MEMORY ORGANIZATION—HIGH-RESOLUTION 
MODE 


In high-resolution graphics mode there are 128,000 (640 x 
200) pixels on the screen. Each pixel may be @ for black or 
1 for white. One bit can have the value @ or 1, so one bit 
can represent one pixel in high-resolution mode. There are 
8 bits in a byte, so one byte can control 8 pixels. There- 
fore, the high-resolution screen memory map requires 
16,000 (128,000 pixels divided by 8 pixels per byte) bytes 
of memory. This is why there are 16K bytes of memory on 
the Color/Graphics Adapter. 

The 8 pixels controlled by any byte are horizontally 
adjacent to one another. Bit 7 (the leftmost bit) controls 
the leftmost pixel, bit 6 controls the next pixel, and so on. 
If a bit value is @, then the corresponding pixel is black; if 
the value is 1, then the pixel is white. The first byte in the 
high-resolution memory map, the byte at offset 9 or byte 
number Q, controls the 8 leftmost pixels in the top row 
(columns @-7), as shown in Fig. 20-1. Byte 1 controls the 
next 8 pixels to the right (columns 8-15), and so on, for 80 
bytes. Byte number 79 controls the 8 pixels at columns 
632-639 of the top row (row @). 
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Fig. 20-1. Pixels controlled by the first byte in 
graphics-screen memory map—high resolution. 


For example, select high-resolution mode with SCREEN 
2 and type: 


DEF SEG=&HB898 and press Enter 


Now, whatever you POKE into memory in the address 
ranges 9 through 7999 and 8192 through 16191 immedi- 
ately affects what is displayed on the high-resolution 
screen. (We will explain why there are two ranges shortly.) 
Type: 

POKE 8,1 and press Enter 
and the dot at column 7 of row 9 becomes white. Type: 

POKE 1,1 and press Enter 


and the dot at column 15 is white. POKE 2,255 turns on 
all 8 pixels, at columns 16-23, controlled by the third byte. 
POKE 79,17@ turns on every other pixel controlled by 
byte 79. 

Familiarity with binary notation is necessary to work 
effectively with the graphics screen. Hexadecimal notation 
is equally essential. We suggest you familiarize yourself 
with these number systems and experiment with PEEK 
and POKE in the graphics mode. You will find that work- 
ing on practical projects is the quickest way to acquire 
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proficiency. For now, the table in Appendix C of this book 
provides a translation between decimal, hexadecimal, and 
binary notation. You can decide which binary number you 
need, then look it up in the table. For example, making all 
8 pixels white would require 8 binary 1 digits, or the 
binary value 1111 1111. In the table, this can be seen to 
correspond to 255 in decimal, so to make the 8 leftmost 
pixels on row @ white, we would type: 


DEF SEG=&HB89OPOKE 9,255 and press Enter 


Appendix C indicates that this value is also equivalent to 
hexadecimal FF, so we could accomplish the desired 
result with POKE @,&HFF as well. 

There is a slight complication at this point. One might 
logically think that the byte at offset 89 would control the 
first 8 pixels on row one, but this is not the case. Type: 


POKE 88,255 and press Enter 


and you will see that byte 8 controls the first 8 pixels on 
row two. The byte at offset 169 controls the first 8 pixels 
on row four, and so on down to the byte at offset 7929, 
which controls the first 8 pixels on row 98. Thus, all the 
pixels on even rows are controlled by the bytes in the off- 
set range of @ through 7999 on the Color/Graphics 
Adapter. 

The pixels on odd rows are controlled by the bytes in the 
address range 8192 (B8Q9:2009 hexadecimal) to 16191. 
The eight pixels on row 1 are controlled by the bytes in the 
address range 8192 (B89@:2099 hexadecimal) to 16191. 
The eight pixels on row 1 (the second row down), columns 
Q-7, are controlled by the byte at offset 8192. The next 
eight pixels (columns 8-15) are controlled by the byte at 
offset 8193. In essence, the odd rows are addressed like 
the even row just above them except that 8192 must be 
added to the offset. 

For example, make sure the segment is set to B89 and 
type: 

POKE 8192,192 and press Enter 


to turn on the leftmost pixel on row 1. POKE 8192+79,85 
turns on every other pixel at the right end of row 1. 
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The last pixels on an even row are controlled by the byte 
at offset 7999. Type: 


POKE 7999,255 and press Enter 


to make these pixels white. The last pixels on the last odd 
row are controlled by the byte at offset 16191 (8192 + 
7999). Type: 


POKE 16191,255 and press Enter 


to make these pixels white. Note that POKE 16191, will 
make these pixels black again. 
Clear the screen and type: 


FOR I=@ TO 328: POKE 1,51: NEXT and press Enter 


to draw several dotted lines. Notice that only every other 
line is drawn because we are operating only within the 
even-line section of the high-resolution memory map. 
Type: 
FOR I=§ T0 328: POKE 8192+1,204: NEXT and press 
Enter 


to draw several dotted lines on odd rows. The dots on the 
odd rows are offset from the dots on the even rows because 
the value 204 produces an 8-pixel pattern that is exactly 
the opposite of that produced by 51. 

We can see the odd-even line separation with the 
BLOAD statement. Type: 


LINE (228,58)—(420,156),,BF and press Enter 
to draw a solid box, then save it with: 


DEF SEG=&HB806: BSAVE "BOX",8,16384 and press 
Enter 


(Note that we save 16,384 bytes because this is the num- 
ber of bytes in the high-resolution screen. The 16,384 is 
equal to &H4999, which we used in the previous chapter 
for the number of bytes to save in the graphics screen.) 
Now type: 


CLS: BLOAD "BOX" and press Enter 


The even lines appear first, and, after a moment, the odd 
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lines appear as well. BLOAD transfers a disk file to mem- 
ory, and floppy disks are slow enough so that we can see 
the transfer in progress. The transfer proceeds by replac- 
ing the byte at offset @, then offset 1, and so on, up to offset 
16383. Because all the even lines are in the offset range @- 
7999, they are replaced before any of the odd lines in the 
range 8192-16191. 

You can test the state of a pixel by PEEKing the appro- 
priate byte. For example, POKE 9,1: PRINT PEEK(Q) 
turns on the pixel at row 9, column 7, and then returns 
the value 1 for the 8 pixels controlled by the byte at offset 
@. The value 1 indicates that only the rightmost pixel of 
the 8 is white. 


SCREEN MEMORY ORGANIZATION—MEDIUM- 
RESOLUTION MODE 


In medium-resolution graphics mode there are 64,000 
(320 x 200) pixels on the screen. Each pixel may be @ for 
the background color or 1 through 3 for the colors in the 
selected palette. Two bits are required to represent the val- 
ues O through 3, as shown in Appendix C, which means 
that four pixels can be controlled by a single byte. There- 
fore, the medium-resolution screen memory map requires 
16,000 (64,000 pixels divided by 4 pixels per byte) bytes of 
memory. 

The 4 pixels controlled by any byte are horizontally 
adjacent to one another. Bit 7 (the leftmost bit) and bit 6 
control the leftmost pixel, bits 5 and 4 control] the next 
pixel, and so on. If the bit pair value is 9, the pixel is the 
background color; if the value is not zero, the pixel is the 
corresponding color from the current palette. The first 
byte in the medium-resolution memory map, the byte at 
offset @ or byte number 9, controls the 4 leftmost pixels on 
the top row (columns 9-3), as shown in Fig. 20-2. Byte 1 
controls the next 4 pixels to the right (columns 4-7), and 
so on, for 80 bytes. The byte at offset 79 controls the 4 
pixels at columns 316-319 of the top row (row 9). 

For example, type: 


SCREEN 1,9: COLOR 9,1: CLS and press Enter 
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to select medium-resolution color-graphics mode with pal- 
ette 1. Then type: 


DEF SEG=&HB8@0: POKE 9,3 and press Enter 


to draw a white pixel in row Q, column 3. This is the 
rightmost pixel controlled by the byte at offset @. POKE 
1,2 draws a magenta pixel at row 9, column 2. (If this does 
not show well on your display, type: 


POKE 1,18 and press Enter 


to draw two adjacent magenta pixels.) POKE 2,1 draws a 
cyan dot. (Alternatively, POKE 2,5 draws a doubled cyan 
dot.) Finally, POKE 79,255 makes all four pixels con- 
trolled by the byte at offset 79 (row @, columns 316-319) 
white. 
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Fig. 20-2. Pixels controlled by the first byte in graphics 
screen memory map—medium resolution. 


Remember that you can use Appendix C of this book to 
translate your binary numbers into more easily usable 
decimal numbers. For instance, four blue pixels would 
mean four pixel pairs with the value 1, or 91 @1 @1 @1 
which is 9101 @191. Appendix C shows this to be equal to 
85 in decimal notation, so to make the first 4 pixels on row 
@ cyan, we would type: 


POKE 8,85 and press Enter 
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In medium-resolution mode, the odd and even rows are 
kept in separate areas of memory, as they are in high-reso- 
lution mode. The byte at offset 89 controls the leftmost 4 
pixels on row 2, the byte at offset 169 controls the first 4 
pixels on row 4, and the byte at offset 7929 controls the 
first 4 pixels on row 198. The pixels in an odd row are 
8192 bytes further into the memory map than the pixels 
on the even row above, as they are in high-resolution 
mode. The first byte in the odd-lines section of the screen 
memory map controls row 1, columns @-3 and is located at 
offset 8192. The next 4 pixels to the right are controlled by 
the byte at offset 8193. For example, type: 


POKE 249,255 and press Enter 


to draw 4 white pixels on row 6 and then type: 
POKE 249+8192,255 and press Enter 


to draw 4 white pixels on row 7. 
Type: 
POKE 7999,255 and press Enter 


This draws at the last location in the even-row section of 
the memory map. The bytes in the range @-7999 control 
the pixels on the even rows, starting at the upper left and 
moving left to right, dropping to the next even line and 
returning to the left margin every 80 bytes. 

The odd-row section extends over the range 8192 
(B8Q9:200@ hexadecimal) to 16191, moving left to right 
and down as with the even lines. Type: 


POKE 16191,255 and press Enter 


to draw white pixels at the last location of the odd rows 
memory map. 
Type: 
FOR I1=808 TO 1608: POKE I,1%: NEXT and press Enter 


to draw several dotted magenta lines on even rows. Note 
that the lines wrap from the right margin to the left end of 
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the next even row down. Similarly: 


FOR I=888+8192 TO 1690+8192: POKE 1,5: NEXT and 
press Enter 


draws several dotted cyan lines on odd rows. 

The PEEK statement can be used to determine the state 
of pixels in the medium-resolution screen. For example, 
type: 

POKE 8,5: PRINT PEEK(@) and press Enter 


The 5 printed on the screen indicates that the pixels at 
row 9, columns 2 and 3 are cyan, and columns @ and 1 are 
black. 


WHY PEEK AND POKE? 


You'll probably never need PEEK and POKE to do graph- 
ics from BASIC, because PSET, POINT, and the more 
advanced graphics commands do everything you might 
need. Most languages, however, lack graphics commands; 
to produce graphics from these languages you will have to 
construct your own set of subroutines to perform the nec- 
essary functions using the equivalent of PEEK and POKE. 
This is done, for example, when writing arcade-style 
games in Assembly language. 

To see why Assembly language is used, draw a line 
using POKE and a FOR. . . NEXT loop, then draw the 
same line with the LINE statement. The difference in 
speed is the difference between the speed of execution in 
BASIC and in Assembly language—in general, Assembly 
language is many times faster. When writing your own 
graphics routines in Assembly language, you must 
account for such characteristics as the separation of odd 
and even lines in the screen memory map; all the informa- 
tion (and more) discussed here is needed. The program- 
ming is not easy, but, on the other hand, complete com- 
mand of BASIC, Assembly language, and the internal 
workings of the computer allows you to get the most from 
your PC. Five years ago, it was considered unlikely that 
arcade-style games or language compilers such as FOR- 
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TRAN could ever work on a microcomputer; today, there 
are hundreds of each. See how far you can stretch the pos- 
sibilities of your PC! 

One final note regarding advanced techniques: the BIOS 
(Basic Input/Output System)—which is permanently 
stored in ROM and always available to the programmer— 
provides a wide range of disk, keyboard, video, and other 
functions. Included in the video section is the ability to 
LOCATE (or place) the cursor, determine the cursor loca- 
tion, switch the screen mode, scroll the screen up or down, 
put a character with any attribute on the screen, select the 
active screen page, select the palette and the background 
and border colors, plot a dot at an x,y coordinate, read the 
state of the dot at an x,y coordinate, and read a light pen 
position. 

This book is not intended for the most advanced pro- 
grammer, and the use of the BIOS is an advanced tech- 
nique. The BIOS can be accessed via a machine-language 
subroutine from BASIC, FORTRAN, or other high-level 
language, or can be accessed directly via an interrupt from 
Assembly language. If you are looking for a new direction 
in which to explore, learning to access the BIOS from 
BASIC, or learning Assembly language along with the 
BIOS could be a rewarding experience. Appendix A to 
IBM’s Technical Reference manual will help in this pur- 
suit. Appendix C of the BASIC manual provides some 
information as well, although it is by no means a complete 
discussion of machine-language subroutines. The 8086 
Book, by Russell Rector and George Alexy, and The 8086 
Primer, by Stephen Morse, are good references on Assem- 
bly language for the PC. IBM’s Macro Assembler and the 
accompanying manual are necessary to do any work with 
Assembly language. Numerous magazine articles address 
the use of machine-language subroutines from BASIC, 
Assembly language, and the BIOS. 

If you master Assembly language and the BIOS, congrat- 
ulations! You will be an expert on the PC, well-equipped 
for any task. The only way to get there is to read and 
experiment, so—go forth! 


280 


APPENDIX A 


THE SET OF CHARACTERS 
AVAILABLE FROM BASIC 


Following is a list of the 256 characters that can be pro- 
duced with the CHR$ function and are known as the 
ASCII character set for the PC. Note that some of the val- 
ues do not produce a visible character, but rather have an 
effect such as moving the cursor. 


Reprinted by permission from BASIC © 1981 by International Business 
Machines Corporation. 
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ASCII Control ASCII 

value Character character value Character 
000 (null) NUL 032 (space) 
001 (©) SOH 033 ! 
002 ) STX 034 a 
003 v ETX 035 # 
004 ® EOT 036 $ 
005 & ENO 037 % 
006 c J ACK 038 & 
007 (beep) BEL 039 7 
008 a BS 040 ( 
009 (tab) HT 041 ) 
010 (line feed) LF 042 i 
011 (home) VT 043 + 
012 (form feed) FF 044 : 
013 (carriage return) CR 045 - 
014 Jd sO 046 ; 
015 ae SI 047 / 
016 > DLE 048 0 
017 < DCI 049 1 
018 + pc2 050 2 
019 " DC3 051 3 
020 T DC4 052 4 
021 § NAK 053 5 
022 = SYN 054 6 
023 $ ETB 055 7 
024 4 CAN 056 8 
025 { EM 057 9 
026 > SUB 058 : 
027 < ESC 059 ; 
028 (cursor right) FS 060 << 
029 (cursor left) GS 061 = 
030 (cursor up) RS 062 > 
031 (cursor down) US 063 ? 
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ASCII ASCII 

value Character value Character 
064 @ 096 4 
065 A 097 a 
066 B 098 b 
067 GC 099 Cc 
068 D 100 d 
069 E 101 e 
070 F 102 f 
071 G 103 g 
072 H 104 h 
073 | 105 i 
074 J 106 j 
075 K 107 k 
076 L 108 | 
077 M 109 m 
078 N 110 n 
079 O 111 fe) 
080 P 112 p 
081 Q 113 q 
082 R 114 r 
083 S 115 s 
084 T 116 t 
085 U 117 u 
086 Vv 118 Vv 
087 W 119 w 
088 Xx 120 x 
089 ¥ 121 y 
090 Z 122 z 
091 [ 123 { 
092 * 124 
093 ] 125 } 
094 N\ 126 
095 —_ 127 Cy 
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ASCII ASCII 

value Character value Character 
128 c 160 a 
129 i 161 i 
130 é 162 é 
131 a 163 a 
132 a 164 A 
133 a 165 N 
134 4 166 a 
135 g 167 ° 
136 ec 168 é 
137 é 169 i 
138 é 170 

139 i 171 Vp 
140 i 172 % 
141 i 173 i 
142 A 174 « 
143 A 175 ») 
144 E 176 ay 
145 2 177 

146 A 178 

147 i) 179 | 
148 8 180 4 
149 3 181 = 
150 a 182 || 
151 u 183 a 
152 y 184 = 
153 O 185 5 
154 U 186 I 
155 ¢ 187 al 
156 £ 188 = 
157 ¥ 189 a 
158 Pt 190 4 
159 f 191 a 
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ASCII ASCII 

value Character value Character 
192 L 224 a 
193 + 225 B 
194 > 226 P 
195 + 227 re 
196 = 228 25 
197 + 229 o 
198 iS 230 LU 
199 It 231 * 
200 232 © 
201 IF 233 aoe 
202 at 234 Q 
203 ar 235 6 
204 F 236 oo 
205 = 237 4) 
206 ar 238 € 
207 + 239 nN 
208 elle 240 = 
209 =o 241 + 
210 =r 242 > 
211 w 243 < 
212 & 244 ¢ 
213 F 245 J 
214 r 246 = 
215 + 247 eS 
216 + 248 ° 
217 4 249 ° 
218 r 250 , 
219 se 251 Ni 
220 Ga 252 n 
221 | 253 2 
222 | 254 a 
223 oa 255 (blank ‘FF’) 
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THE FULL 255 CHARACTER SET 
OF THE IBM PC 


Following is a list of the 255 characters the IBM PC can 
display. These characters are the ASCII character set of 
the PC. Not all of these characters can be displayed 
directly from DOS or BASIC since, in those uses, they per- 
form special functions such as beeping or moving the cur- 
sor. All are available through the BIOS function INT 10 
(hexadecimal) from Assembly or machine language. See 
the Technical Reference manual for more information on 
the PC character set. 


Reprinted by permission from Technical Reference ® 1981 by Interna- 
tional Business Machines Corporation. 
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APPENDIX C 


DECIMAL, HEXADECIMAL, AND 
BINARY CONVERSION TABLE 


This table shows the values ¢ through 255 in binary (base 
2), hexadecimal (base 16), and decimal (base 10) notation. 
Read across horizontally to translate from one notation to 
another. 


Decimal Hex Binary Decimal Hex Binary 


0000 0000 0001 1001 
0000 0001 0001 1010 
0000 0010 0001 1011 
0000 0011 0001 1100 
0000 0100 0001 1101 
0000 0101 0001 1110 
0000 0110 0001 1111 
0000 0111 0010 0000 
0000 1000 0010 0001 
0000 1001 0010 0010 
0000 1010 0010 0011 
0000 1011 0010 0100 
0000 1100 00100101 
0000 1101 00100110 
0000 1110 00100111 
0000 1111 0010 1000 
0001 0000 0010 1001 
0001 0001 0010 1010 
0001 0010 0010 1011 
0001 0011 0010 1100 
0001 0100 0010 1101 
0001 0101 0010 1110 
0001 0110 0010 1111 
0001 0111 0011 0000 
0001 1000 0011 0001 


0 
1 
2 
3 
4 
5 
6 
14 
8 
9 
A 
B 
Cc 
D 
E 
F 
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Decimal Hex 
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Binary 


0011 0010 
00110011 
0011 0100 
00110101 
00110110 
00110111 
0011 1000 
0011 1001 
0011 1010 
0011 1011 
0011 1100 
00111101 
00111110 
00111111 
0100 0000 
0100 0001 
0100 0010 
0100 0011 
0100 0100 
01000101 
0100 0110 
01000111 
0100 1000 
0100 1001 
0100 1010 
0100 1011 
0100 1100 
0100 1101 
0100 1110 
0100 1111 
0101 0000 
0101 0001 
0101 0010 
0101 0011 
0101 0100 
0101 0101 
01010110 
01010111 
0101 1000 
0101 1001 
0101 1010 
0101 1011 
0101 1100 
0101 1101 
0101 1110 
0101 1111 


Decimal Hex 


Binary 


01100000 
01100001 
01100010 
01100011 
01100100 
01100101 
01100110 
01100111 
0110 1000 
0110 1001 
0110 1010 
01101011 
0110 1100 
01101101 
01101110 
01101111 
0111 0000 
01110001 
01110010 
01110011 
01110100 
01110101 
01110110 
01110111 
0111 1000 
0111 1001 
0111 1010 
01111011 
01111100 
01111101 
01111110 
01111111 
1000 0000 
1000 0001 
1000 0010 
1000 0011 
1000 0100 
1000 0101 
1000 0110 
1000 0111 
1000 1000 
1000 1001 
1000 1010 
1000 1011 
1000 1100 
1000 1101 
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Decimal Hex Binary Decimal Hex Binary 


1000 1110 1011 1100 
143 8F 1000 1111 1011 1101 
144 90 1001 0000 10111110 
145 91 1001 0001 10111111 
146 92 1001 0010 1100 0000 
147 93 1001 0011 1100 0001 
148 94 1001 0100 1100 0010 
149 95 1001 0101 1100 0011 
150 96 1001 0110 1100 0100 
151 97 10010111 11000101 
152 98 1001 1000 - 11000110 
153 99 1001 1001 11000111 
154 9A 1001 1010 1100 1000 
155 9B 1001 1011 1100 1001 
156 9C 1001 1100 1100 1010 
157 9D 1001 1101 1100 1011 
158 9E 1001 1110 1100 1100 
159 OF 1001 1111 1100 1101 
160 AO 1010 0000 1100 1110 
161 Al 1010 0001 1100 1111 
162 A2 10100010 1101 0000 
163 A3 10100011 1101 0001 
164 A4 10100100 1101 0010 
165 AS 10100101 1101 0011 
166 A6 10100110 1101 0100 
167 A7 10100111 1101 0101 
168 A8 1010 1000 11010110 
169 AQ 1010 1001 11010111 
170 AA 1010 1010 1101 1000 
171 AB 1010 1011 1101 1001 
172 AC 1010 1100 1101 1010 
173 AD 1010 1101 1101 1011 
174 AE 1010 1110 1101 1100 
175 AF 1010 1111 1101 1101 
176 BO 1011 0000 1101 1110 
177 Bl 1011 0001 11011111 
178 B2 10110010 1110 0000 
179 B3 10110011 11100001 
180 B4 10110100 11100010 
181 BS 10110101 11100011 
182 B6 10110110 11100100 
183 B7 10110111 11100101 
184 B8 1011 1000 11100110 
185 1011 1001 11100111 

1011 1010 1110 1000 

1011 1011 1110 1001 
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Decimal 
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Binary 
1110 1010 
11101011 
1110 1100 
11101101 
11101110 
11101111 


1111 0000 
1111 0001 
11110010 
11110011 
11110100 


Decimal Hex 


Binary 
11110101 
11110110 
11110111 
1111 1000 
1111 1001 
11111010 
11111011 
11111100 
11111101 
11111110 
11111111 


GLOSSARY 


Address. Similar to the street address for a house; each 
location in memory is referred to by a unique number, 
known as its address. 

Analog. Circuitry that operates with electrical signals that 
can represent a continuous range of values. See 
digital. 

Array. String of variables referred to with the same name. 

ASCII. Standard translation table used to convert charac- 
ters to their hexadecimal representation and vice 
versa. See Appendix B for the complete ASCII charac- 
ter set of the PC. 

Assembly language. Language that allows programmers 
to work directly with the machine-language instruc- 
tions the processor “understands,” while providing 
English-like commands that are easier to work with 
than the ones and zeroes of machine language. 

Asynchronous. Communications over a modem that 
occur on an irregularly timed basis. See synchronous. 

Backup. Copy of the information on a mass-storage 
device. Protects against the loss or destruction of the 
original information. Also refers to the process of cre- 
ating a backup. 

Bandwidth. Measure of the information-handling capabil- 
ity of electronic circuitry. 

BASIC. Beginners All-purpose Symbolic Instruction Code. 
A programming language originally designed for 
teaching, but presently the most widely used lan- 
guage in the microcomputer world. 
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Batch processing. Direction of the operation of a com- 
puter from commands that are stored in a file rather 
than typed at the keyboard. 

Baud. Measure of the rate at which units of information 
are transmitted between the computer and another 
device. The two baud rates commonly used by micro- 
computers are 300 baud (approximately 30 charac- 
ters per second), and 1200 baud (approximately 120 
characters per second). ‘“‘Overhead’’ can lower the 
effective rate of transmission. 

Bell 103. Universal data transmission standard for 300- 
baud modem communications. A Bell 103-type 
modem can only “speak” to another Bell 103-type 
modem, but because Bell 103-type modems are so 
widely used, this is rarely a problem. 

Bell 212A. Most widely used data transmission standard 
for 1200-baud modem communications. However, 
there are other 1200-baud standards that are incom- 
patible with Bell 212A-type modems. A Bell 212A- 
type modem can only “‘speak’”’ to another Bell 212A- 
type modem, so you should make sure that any 1200- 
baud modem you buy is compatible with the comput- 
ers you want to communicate with. 

Binary. Base 2, a numeric notation that has only two dig- 
its, @ and 1. 

BIOS. Basic Input/Output System. The programs stored in 
ROM that provide a low-level interface to the devices 
attached to the PC such as the video screen and 
keyboard. 

Bit. Abbreviation for binary digit. A bit is one digit in base 
2 (which can only have a value of @ or 1). The smallest 
unit of storage in any computer. All information is 
stored as a series of bits. 

Board. Any board containing electronic components, such 
as the system board that contains the ‘‘nucleus’’ of 
the PC. Also refers to add-on circuit boards, such as a 
serial port or disk controller. 

Boot. Process of starting a computer and loading an oper- 
ating system into memory, usually from disk. 

Buffer. Portion of memory used as a temporary holding 
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area for information that is enroute from one to 
another. 

Bug. Error or malfunction in the performance of a 
program. 

Bus. Set of common wires used to exchange information 
between, as well as transmitting power to, the compo- 
nents of a computer, including the processor, mem- 
ory, and expansion cards. 

Byte. Group of 8 bits that can have any of 256 different 
values. The value of a byte can represent a character 
(see Appendix B) or a number between O and 255, and 
strings of bytes can represent words or larger num- 
bers. A byte is the smallest unit of memory most 
microcomputers can work with, so memory size is 
often measured in terms of bytes. 

Card. Board containing electronic components that can be 
added to a PC or other computer to provide additional 
functions or control outside devices. 

Centronics compatible. Standard parallel interface speci- 
fication for connecting printers to computers. 

Cluster. Smallest amount of additional disk space that 
DOS allocates when it needs to expand a file. 

Code. Group of program lines or instructions. Can refer to 
a complete program or a fragment. Also refers to the 
process of writing programs. 

Command. Instruction issued to the computer to perform 
a specific task. 

Compiler. Program that translates programs written in a 
high-level language into machine language so they 
can be run. 

Composite video. Single video signal that contains the 
information necessary to create a video picture. See 
RGB. 

Concatenation. Process of combining two or more sets of 
data into one set by placing the beginning of one set 
directly after the end of the other. 

Constant. In a BASIC program, a single value that cannot 
be changed. See variable. 

Controller. Circuitry that directs the operation of a device 
attached to the PC. 
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Coprocessor. Second processor that works in conjunction 
with the computer’s main processor in performing 
special tasks at high speed. 

CPU. Central Processing Unit. Performs data manipula- 
tion and is the central control in a computer. Often 
used interchangeably with the terms processor and 
microprocessor. 

CRT. Cathode Ray Tube. Main display tube in monitors 
and television sets. Sometimes used to refer to an 
entire display unit. 

Cursor. Visual indicator that marks the position on the 
screen where the next character will appear. 

Database. Collection of related data organized so it can be 
expanded, manipulated, recalled, and displayed by a 
computer program. 

Data set. Any collection of related information. 

Debug. Process of detecting and correcting errors in a 
program. 

Decimal. Base 10, the familiar notation for representing 
numeric values with the ten digits @ through 9. 

Delimiters. Characters used to mark the beginning and 
end of a string of characters. Delimiters themselves 
are not part of the string delimited. 

Digital. Circuitry that operates with electrical signals 
which can represent only one of two values, although 
multiple digital signals can be combined to represent 
any range of values. See analog. 

DIP. Dual Inline Package. A standard package for circuits 
installed inside computers and related peripherals. 
DIP packages have two rows of parallel ‘‘legs’’ or sock- 
ets to accept such “‘legs.”’ 

Directory. Index to all files on a disk. A computer- 
readable directory is stored on each disk to keep track 
of the contents of that disk. 

DMA. Direct Memory Access. Circuitry in a computer that 
can send information to or retrieve information from 
memory without the information having to go through 
the central processor. 

DOS. Disk Operating System. Any operating system that 
supports the use of disk drives. There are many 
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DOSes available for the PC including DOS 1.1, 2.0, 
and 2.1. DOS 2.1 provides complete support for the 
use of the disk drive. 

Double precision. Type of number in BASIC, accurate to 
16 decimal digits in the approximate range 19E—38 to 
19E +38. Requires 8 bytes of storage per number. See 
integer and single precision. 

EBCDIC. Translation table used to convert characters to 
their machine representation and vice versa on many 
large computers. The PC, like most microcomputers, 
uses the ASCII character set (see Appendix B) rather 
then EBCDIC. 

Edit. Make changes to a command, the text of a program, 
or the text contained in a file. 

Enter. Transmit a line of text to the PC (e.g., a command 
or data to be processed). In general, the Enter key 
must be pressed at the end of a line of text before the 
PC will act on it. 

Execute. Cause the computer to carry out the actions 
specified by the instructions in a program. Synony- 
mous with run. 

File. Collection of related data stored as a single unit on a 
cassette or disk and referred to with a single name. 

File Allocation Table. (FAT) Information table stored on 
each disk, indicating where on the disk the informa- 
tion comprising each file is stored. There is an extra 
copy of the FAT on each disk in case the main FAT is 
damaged. 

Filter. Program that takes input from the standard input, 
modifies it, and transfers it to the standard output. 

Firmware. Usually refers to programs stored in ROM. 
Named because ROM is more permanent than soft- 
ware but not physically wired like hardware. 

Format. Prepare a disk for use with DOS; in this usage, 
format is equivalent to initialize. Also refers to the 
arrangement of displayed or printed output in a spe- 
cific form. 

Fragmentation. The degree to which a file is ‘“‘scattered” 
on a disk. The more fragmented a file, the slower the 
process of reading it. 
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Full duplex. Form of modem communication in which 
information can be transmitted in both directions 
simultaneously. 

Function. BASIC keyword that calculates a number or 
string on the basis of other numbers and/or strings. 
Glitch. Transient error caused, for example, by a power 

line surge or phone line interference. 

Graphics. On-screen display of detailed images composed 
of dots. 

Half duplex. Form of modem communication in which 
information can be transmitted in only one direction 
at any time, so the two communicating devices must 
“‘take turns.”’ 

Handshaking. Manner in which the flow of data between 
two devices is controlled. 

Hardware. Physical equipment of which a computer is 
comprised, including the system board, keyboard, dis- 
play, and add-on cards. 

Hexadecimal. (hex) Base 16, a numeric notation with 16 
digits, through 9 and A through F. 

High-level language. Language that allows programmers 
to ‘‘direct’”” the computer with easy-to-use English-like 
instructions, rather than the machine language that 
the processor understands directly. 

I/O. Input/Output. Reception of information by and trans- 
mission of information from a computer. 

Initialize. Usually describes the preparation of a disk for 
use by DOS. Often used interchangeably with the term 
“format.” 

Input. Acceptance of information by the CPU from an 
external source such as the keyboard, a disk drive, or 
modem. 

Integer. Whole number. In BASIC, a number with no frac- 
tional part in the range —32768 to +32767, and 
requiring 2 bytes of storage. See single precision and 
double precision. 

Interface. Circuitry that lets the PC connect with an 
attached device such as a printer, often in the form of 
an add-on card. Such cards are known as interface 
cards. 
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Interpreter. Program that executes source programs writ- 
ten in some high-level language without the need for 
the source program to be compiled and linked as sepa- 
rate steps. See compiler. 

K. Abbreviation for kilobyte; 1K of memory is 1024 bytes. 

Keyword. Word recognized by BASIC as one of its 
reserved set of instructions. 

Kilobyte. 1024 bytes or 1K bytes. Often written as Kb. 

Language. Similar to a spoken language, a computer lan- 
guage consists of a vocabulary and set of rules for 
communicating to the computer the instructions and 
data necessary for performing tasks. All programs are 
written in one type of computer language. 

Latch. Hardware that holds a single value until it is used 
or replaced. 

LED. Light-Emitting Diode. An electronic device that 
emits light, usually a red light which indicates the 
state of an electronic device or circuit. The light that 
indicates when the PC’s disk drive motor is on is an 
LED. 

Linker. Program that takes machine-language files pro- 
duced by compilers and/or assemblers and combines 
them into a runnable program file. 

Listing. Text of a program displayed on the screen or in 
printed form. 

Load. Process of transferring the contents of a file into 
memory. 

M. Abbreviation for mega, which refers to 1024 times 
1024 or 1024K; often used to describe the size of 
memory, so 1M of memory is 1024K (1,048,576) 
bytes. 

Machine language. Language that a processor under- 
stands directly. Machine language consists of strings 
of binary numbers that represent the actual physical 
operations a processor is designed to execute. 

Mainframe. A large, multi-user computer typically han- 
dling data in 32-bit chunks. See minicomputer. 

Mass storage device. Device that ‘‘holds’’ information on 
a long-term basis. Programs and data residing in RAM 
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can be stored to and retrieved from mass storage 
devices such as cassette recorders and disk drives. 

Megabyte. Approximately one million bytes (1024Kb, or 
1,048,576 bytes). Often written as Mb. 

Memory. Any device that stores information. Usually 
refers to the computer’s internal memory which is 
directly and rapidly accessed by the processor and 
holds programs and data. There are two types of inter- 
nal memory, RAM and ROM; when neither is speci- 
fied, memory usually refers to RAM. 

Menu. Options displayed on the screen. 

Microcomputer. Computer that is much smaller than a 
mainframe and smaller than a minicomputer, typi- 
cally handling data in 8-bit chunks, although some 
microcomputers use 16- or 32-bit data. The boundary 
between minicomputers and microcomputers is 
becoming blurred. 

Microprocessor. Processor that is contained entirely on a 
single integrated circuit chip. Often used interchange- 
ably with the terms processor and CPU. 

Minicomputer. Computer that is smaller than a main- 
frame and larger than a microcomputer, typically han- 
dling data in 16-bit chunks. The boundary between 
minicomputers and microcomputers is becoming 
blurred. 

Modem. Abbreviation for MOdulator/DEModulator. A 
device that allows a computer to exchange informa- 
tion with other computers over a telephone line. 

Monitor. Display especially designed to show computer- 
generated text and/or graphics. 

Nibble. One-half of a byte or four bits. 

Octal. Base 8, a numeric notation in which there are 8 dig- 
its, @ through 7. 

Operating system. Software that transforms a computer 
into a self-contained environment for using programs. 
Provides the user and programs with easy access to 
the physical resources of the computer. 

Output. Transmission of information from the CPU to 
another device, such as a disk drive, printer, or 
modem. 
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Parallel. A means of exchanging data in which all 8 bits of 
each byte transmitted are sent simultaneously. See 
serial. 

Parameter. Value, entered on a command line, that 
instructs the command to perform a certain action. 
Parameters can have a user-specified range of values, 
depending on the action desired. 

Parity bit. Additional bit sometimes added to a byte, used 
to check whether the contents of the byte have been 
transmitted or stored correctly. With odd parity the 
parity bit is set to 1 or 9, as needed, to make the sum 
of the bits in the byte odd; with even parity the parity 
bit is set to 1 or Q, as needed, to make the sum of the 
bits in the byte even. If the bits in the byte plus the 
parity bit do not add up to an odd or even number 
(whichever type of parity is in use) at any time, then 
the information in the byte is known to have been 
“corrupted.” 

Peripheral. Device attached to a computer that provides it 
with additional capabilities (e.g., printer or modem). 
Permanence. Amount of time that the dots on a CRT 
remain glowing after having been made to glow by the 
sweeping electron beam that creates the image. The 
higher the permanence, the less flicker on the screen, 

and the less tiring the screen is to view. 

Piping. Redirection of the standard output of one program 
to the standard input of another, indicated with the 
vertical bar character (}). 

Pixel. Abbreviation for picture element, the smallest unit 
of area that can be controlled on:a screen, printer, or 
some other display device. 

Port. Channel through which a computer can send infor- 
mation to and receive information from an external 
device such as a modem or a printer. There are, in 
general, two types of ports, parallel and serial. 

Power supply. Circuitry that provides electricity in the 
; form required by a device. Power supplies for comput- 
ers usually turn standard 120 volts household alter- 
nating current into direct current at one or more lower 
voltages. 
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Print buffer. Device, placed between a computer and a 
printer, that accepts text at high speed from the com- 
puter, storing it and sending it to the printer at the 
printer’s slower speed. A print buffer “‘frees’’ the com- 
puter to do other tasks when large files are printed. 

Processor. ‘‘Brain’’ of a computer, the circuitry that per- 
forms data manipulations and calculations and con- 
trols the overall functioning of the computer. Often 
used interchangeably with the terms microprocessor 
and CPU. 

Program. Set of instructions to the computer, designed to 
perform a certain task. Often used interchangeably 
with the term software. 

Prompt. Character or string of characters displayed on the 
screen to indicate that a response should be entered. 
Also used to describe the process of displaying a 
prompt. 

Protocol. Set of rules for transmission of data. The com- 
puters on both ends of a communications link must 
use the same protocol to control the flow of 
information. 

RAM. Random Access Memory. Storage locations that can 
be directly and rapidly accessed by the processor, the 
contents of which can be changed. RAM is volatile, its 
contents are retained only as long as the power to the 
computer remains on. : 

RAM disk. Software that lets DOS use a portion of mem- 
ory as an ultra-fast simulated disk drive. 

Read. Process of getting a value or values into the proces- 
sor from memory, the keyboard, a modem, or another 
device. 

Read-only. Storage from which data can be read, but to 
which data cannot be written so the contents are 
fixed. ROM is Read Only Memory. Disks can be made 
read-only with a write-protect tab. 

Redirection. Feature of DOS that allows the data read 
from the standard input (usually the keyboard) to 
come from any file or device, and the data sent to the 
standard output (usually the screen) to go to a file or 
device. 
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Reserved words. Set of approximately 200 words, 
reserved by BASIC for its own use, which cannot be 
used as variable names. (See Chapter 3 of the 
BASICmanual.) 

Resolution. Amount of detail in an image that a device is 
capable of creating. Usually used as a measure of qual- 
ity for screen displays, indicating how many rows and 
columns of pixels the screen can display. 

RF modulator. Abbreviation for Radio Frequency modula- 
tor. A device that transforms the standard composite 
video signal put out by a computer into the form that a 
television set uses so the computer output can be dis- 
played on a television set. 

RGB video. Abbreviation for Red-Green-Blue video. Refers 
to systems that transmit the color information neces- 
sary to create a video picture on three separate sig- 
nals, one for each of these three primary colors of 
light. 

ROM. Read Only Memory. Storage locations that can be 
read directly and rapidly by the processor. The con- 
tents of ROM are fixed and, therefore, cannot be 
changed by the processor. 

Routine. Series of program lines that work together to pro- 
duce a specific result. Can be an entire program or a 
portion of a program that performs a specific task. 

RS-232. Standard specification for information inter- 
change through a serial port. (RS-232C describes 
proper electrical connection and voltages.) 

Run. Cause the computer to carry out the actions speci- 
fied by the instructions in a program. Synonymous 
with execute. 

Scrolling. Move the contents of the entire screen up one 
line so there is room at the bottom to add a new line. 
Sector. Basic unit of storage on a disk. The sector size that 
DOS uses is 512 bytes per sector, with a total of 720 

sectors on each disk. 

Separator. Character that sets apart parameters on com- 
mand lines. Separators used by DOS include spaces, 
commas, and semicolons; BASIC most often uses 
commas. 
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Serial. Means of exchanging data in which the 8 bits of 
each byte transmitted are sent one at a time, sequen- 
tially. See parallel. 

Single precision. Type of number in BASIC, accurate to 6 
decimal digits in the approximate range 10OE—38 to 
10E+38. Requires 4 bytes of storage per number. See 
integer and double precision. 

Software. Set of instructions to the computer.designed to 
perform a certain task. Often used interchangeably 
with the term ‘‘program.”’ 

Spooler. Software that ‘“‘queues’’ tasks for a slow device, 
sending them to the device at the speed it can handle, 
thereby allowing the user to perform other tasks. 
When used with microcomputers, most often refers to 
a print spooler which prints large files by using small 
slices of the computer’s time while the user per- 
forms other tasks. 

Standard input. Device (typically the keyboard) to which 
programs that run under DOS usually ‘‘look’’ to read 
data. The user may redirect the standard input so that 
a program will read from any file or device attached to 
the PC. 

Standard output. Device (typically the display screen) to 
which programs that run under DOS usually send 
data to be written. The user may redirect the standard 
output so that a program will write to any file or 
device attached to the PC. 

Start bit. Bit, used for synchronization, that precedes 
each byte transmitted asynchronously through a 
serial port. Automatically added at the source end and 
removed at the destination end by hardware. 

Statement. BASIC keyword that performs a task. 

Stop bit. Bit, used for synchronization, that follows each 
byte transmitted asynchronously through a serial 
port. One or more stop bits may be used, and both 
ends of any communications link must use the same 
number of stop bits. Automatically added at the 
source and removed at the destination by hardware. 

Store.Process of placing a value in memory or on a mass- 
storage device for later retrieval. 
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String. Sequence of one or more characters. In BASIC, 
string is a type of constant or variable representing 
from O to 255 characters in a given order. 

Subroutine. Series of program lines, designed to perform 
a function. It can be invoked from many places in a 
program without duplicating the subroutine in each 
place the function is to be performed. This is accom- 
plished by branching to the subroutine code each time 
the specific function is required (known as calling the 
subroutine), then returning to the main body of the 
program after the subroutine has completed its 
function. 

Switch. Optional two-character string entered on a DOS 
command line which, if present, instructs the com- 
mand to perform in a certain way. Switches consist of 
a single character preceded by a slash (/). 

Synchronous. Events that occur on a regular basis, usu- 
ally used to describe the manner in which characters 
are transmitted between computers. Many large com- 
puters communicate synchronously but microcom- 
puter-to-microcomputer communications are almost 
always performed asynchronously. 

System unit. Box containing the processor and primary 
circuitry of the PC. 

Track. Circular magnetic storage area on a disk. PC DOS 
2.0 disks have 9 sectors (each storing 512 bytes) on 
each track, allowing each track to hold 4.5K bytes. 
There are 40 concentric tracks on each side of a disk, 
so there are 80 tracks of 4.5K each, for a total of 360K 
bytes of storage per disk. 

Variable. Named storage location in BASIC which can 
hold any one of a range of values and the contents of 
which can be changed any number of times. See 
constant. 

VDT. Video Display Terminal. Any screen and keyboard 
(plus required support circuitry and a cabinet) used 
for computer input and output. 

VDU. Video Display Unit. Any screen (plus required sup- 
port circuitry and a cabinet) used to display computer 
output. 
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Volatile. In computer applications, means not permanent; 
in particular, refers to the memory-retention charac- 
teristics of RAM memory which loses its contents 
when power is turned off. 

Write. Process of sending a value or values from the proc- 
essor to memory, a printer, a modem, or another 
device for storage or display. 

Write-enable notch. Cutout notch on the side of a disk 
that must be present before a drive will allow the disk 
to be written on. Also called the write-protect notch. 

Write-protect tab. Adhesive paper or foil that fits over the 
write-enable notch on a disk so the disk cannot be 
written on, thereby protecting the contents of the disk 
from intentional or accidental erasure. 
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Absolute addressing, 71-72 
Absolute and Relative Screen 
Addressing program, 74 
explanation of, 74 
Adapter 
Color/Graphics, 17-24, 33-35, 
246 
monochrome, 17, 21, 33-35, 246 
other color/graphics, 22, 24 
Address, 265-266 
Addressing, 71-74 
absolute, 71-72 
relative, 72-74 
Advanced BASIC, 16, 27-30, 33, 
49-50 
Alt key, 26, 43, 256-257 
Animation, 108-111, 210-211 
Arcs, 86-88 
Array, character, 154 
Artifacting, 237-240 
ASCII, 270 
Aspect, screen, 88-92 
Aspect ratio, 89-92, 144-145, 
175-177 
Assembly language, 280 
Attribute, 208-210 


Background color, 58-63 
Background Colors program, 62 
explanation of, 61-62 
Backspace key, 26 
BASIC, 16, 29-32 
Advanced, 16, 27-30, 33, 49-50 
Cassette, 49 
Disk, 48-49 
disk, 31-32 
getting started with, 33-50 
BASICA. See Advanced BASIC 
BEEP, 219 
Binary, 265-266 
BIOS, 269, 280 
Bit, 265-266 
BLOAD, 249-251 
Block and Half-Block Characters in 
Text Mode program, 206 
description of, 205 


Blockbuster—Ball program, 127 
explanation of, 124-127 
Blockbuster—Bricks program, 123 
explanation of, 122 
Blockbuster—Finished, 
Commented Version 
program, 129-130 
description of, 129 
Blockbuster—Finished Version 
program, 128 
explanation of, 127-128 
Blockbuster—Paddle program, 124 
explanation of, 123-124 
Blockbuster—Playing Field 
program, 122 
explanation of, 121 
Booting, 28 
Border color, 196-200 
Break key, 26 
BSAVE, 249-251 
BSAVE and BLOAD Statements in 
Medium-Resolution Mode 
program, 251 
explanation of, 250 
Buffer, 254-256 
Burst, 57-58 
Byte, 265-266 
attribute, 208-210 
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Caps Lock key, 26, 252-254 
Cassette BASIC, 49 
Character array, 154 
Character Generation Package 
Test program, 164-165 
description of, 163 
Character-Generation Package 
program, 166-167 
explanation of, 163, 165, 
167-168 
Character(s) 
entering all 255, 256-257 
generation, 151-170 
set, 257-259 
CHKDSK, 30, 32 
CHR$, 203-204 
CIRCLE, 84-92, 175 
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CIRCLE Statement in High- 
Resolution Mode program, 
175 
description of, 175 
CIRCLE Statement program, 86 
explanation of, 86 
CLS, 65, 200 
Colons, 44-45 
COLOR, 60-63, 196-200 
Color, 241-242 
background, 56-63, 196-200 
border, 196-200 
foreground, 196-200 
high-intensity, 61-63 
in high-resolution, 237-238 
Color Generation by Artifacting 
program, 240 
explanation of, 239-240 
Color/Graphics Adapter, 17-24, 
33-35, 246 
Color graphics screens, 17-22, 
33-35 
Color selection, medium- 
resolution 58-63 
Color Text Modes program, 23, 
199 
description of, 199 
use of, 22 
Colored text, 242-243 
Command(s), 39-40 
BLOAD, 249-251 
BSAVE, 249-251 
CHKDSK, 30, 32 
DIR, 30 
DISKCOPY, 30 
FORMAT, 30 
KILL, 32 
LIST, 34, 36, 38 
LOAD, 34 
MERGE, 168-169 
MODE, 259-260 
PSET, 64-68 
STEP, 72-73 
SYSTEM, 31 
Command entry, 42 
in lowercase, 29, 38 
multiple lines, 43-44 
Commas, 56 
Comments, 44-46 
Composite monitor, 19, 21-23 
Concentric Boxes in Text Mode 
program, 205 
description of, 204 
Connection box (for tv), 22 
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Control Caps Lock and Num Lock 
program, 255 

explanation of, 254 

Coordinates, 64 

Ctrl, 26 

Ctrl-Alt-Del, 26, 43 

Ctrl-Break, 26, 43 

Ctrl-End, 65 

Ctrl-Home, 41, 65 

Ctrl-Num Lock, 26 

Cursor, 40 


D 


DATA, 6 
Debug, 49 
Deferred mode, 38-39 
DEF SEG, 236-237, 267-269 
DEFINT, 211 
Determine Display Adapter 
Installed program, 247 
explanation of, 246 
DIR, 30 
Direct mode, 37-39 
Disk, 27-30 
Disk BASIC, 48-49 
Disk drive, 27 
DISKCOPY, 30 
Display. See also Screens 
connectors, 23 
modes, 52 
graphics, 52-53 
text, 52-53 
DOS, 27-28, 30-31 
Down arrow, 42 
DRAW, 133-150, 176-177 
error conditions, 149 
variables in, 145-146 
equal Sign, 145 
semicolon, 145 
subcommands. See 
subcommands 
substrings, 146-148 
summary of, 149-150 
DRAW Statement Animation 
program, 144 
description of, 143-144 
DRAW Statement in High- 
Resolution Mode program, 
178 
explanation of, 177 
DRAW Statement Movement 
Subcommands program, 
139 
description of, 138-139 


DRAW Statement Substring 
Commands program, 148 
description of, 147 
Dual screens, 17, 33-36 
Dump, screen, 252 


Edit keys, 41-42 
Editing, 41-42 
8086, 280 
8088, 266-267 
Ellipse, 88-92 
END, 61 
Enter key, 25, 41-42 
Error(s), 32 
Conditions for DRAW, 149 
full disk, 32 
illegal function call, 47-48, 94 
‘run-time, 47-48 
syntax, 47 
too many files, 32 
ESC key, 26, 43, 65 
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FOR. . . NEXT, 81 
Foreground color, 196-200 
FORMAT, 30 
FORTRAN, 279-280 
Function, 179 
Function(s) 
CHR$&, 203-204 
PEEK, 268-269, 279 
POINT, 75-78, 173, 207 
RND, 224 
SCREEN, 207-210 
Function keys, 26, 39-40, 42-43 
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GET, 103-112, 176 
GET and PUT Statements in High- 
Resolution Mode program, 
177 
description of, 176 
Getting started with your PC, 
16-32 
Graphics Display Test program, 36 
explanation of, 36-37 
Graphics screen 
getting onto, 33-35 
text in, 69-71 
Graphing, function, 179-188 


H 


Hexadecimal, 265-266 
High-intensity, 40, 61-63 
High-intensity colors, 61 
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High-Resolution Graphics Mode 
Color on RGB Monitors 
program, 238 
description of, 237 
High-resolution mode, 171-178, 
232 
color in, 237-238 
versus medium-resolution mode, 
177-178 
Home key, 26 
Housekeeping, 114 


I 
Illegal function call errors, 47-48, 
94 


Immediate mode, 37 
Indirect mode, 37-39 
Initializing Character-Generation 
Package I program, 156 
explanation of, 154-157 
Initializing Character-Generation 
Package II program, 
160-161 
explanation of, 157-158, 
161-163 
INKEY$, 86 
Intensity, 40 


K 


Kaleidoscope program, 46 

explanation of, 46-47 
KEY OFF, 200, 207 
Keyboard, 25-26, 252-254 
Key Buffer Clearing with INKEY$ 

program, 256 

description of, 255-256 
Key(s) 

Alt, 26, 43, 256-257 

Backspace, 26 

Break, 26 

Caps Lock, 26, 252-254 

Ctrl, 26 

Ctrl-Alt-Del, 26, 43 

Ctrl-Break, 26 

Ctrl-Esc, 65 

Ctrl-Home, 41, 65 

Ctrl-Num Lock, 26, 252-254 

down-arrow, 42 

Enter, 25, 41-42 

Esc, 26, 43, 65 

function, 26, 42 

Home, 26 

Num Lock, 26 

numeric keypad, 41 

PrtSce, 252 

right-arrow, 41 
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Key(s)—cont 
soft, 26, 42-43 
up-arrow, 41 


L 


Last Point Referenced, 64, 71-74 
LINE, 79-82, 173-174 
Line numbers, 37-38 
LINE Statement in High- 
Resolution Mode program, 
174 
description of, 174 
LINE Statement program, 83 
explanation of, 82 
LIST, 34, 36, 38 
LOAD 34 
LOCATE, 70-71, 191, 200-202 


Medium-resolution color selection, 
58-63 
Medium-Resolution Graphics 
Mode Intensity Effects 
program, 63 
explanation of, 62-63 
Medium-Resolution Graphics 
Mode Text program, 72 
explanation of, 71 
Medium-resolution mode, 
colors available in, 56-57 
color selection, 58-63 
setting up, 57-63 
versus high-resolution mode, 
177-178 
Memory 
accessing from BASIC, 267-269 
organization—high-resolution 
mode, 272-276 
organization—medium- 
resolution mode, 276-279 
organization—text mode, 
269-272 
Memory-mapped video, 266-267 
MERGE, 168-169 
MODE, 259-260 
Mode 
deferred, 38-39 
high-resolution, 171-178, 232 
immediate, 37 
indirect, 37-39 
program, 37-38 
screen addressing, 71-74 
text mode graphics, 189-213, 
232-233 
Monitor 
composite, 19, 21-23 
artifacting and, 238-240 
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Monitor—cont 
RGB, 19-22, 171-172 
television set, 19-22 
Monitor Caps Lock and Num Lock 
program, 253 
explanation of, 253 
Monochrome, 17-18, 20-21 
Monochrome adapter, 17, 21, 
33-35, 246 
Monochrome screen, 17-18, 21, 
33-35, 190-191 
Multiple Pages in Text-Mode 
Animation program, 
212-213 
description of, 210 
Multiple screen pages, 210 
Multiple screens, 190-191 


Num Lock key, 26, 252-254 
Numeric keypad, 41 


oO 


Option(s) 
PUT, 105-107 
AND, 107 
OR, 106-107 
PRESET, 106 
PSET, 106, 110-111 
XOR, 106, 109 
OUT, 236 


P 


PAINT, 93-97, 175-176 
PAINT Statement program, 97 
explanation of, 96-97 
Palette, 58-63 
colors, 58-63, 243 
third (unofficial), 243 
Q and 1, 58-63 
Palette @ and 1 Demonstration 
program, 61 
explanation of, 60-61 
Parameter, 55-56 
PC, 16, 27 
PC-DOS, 16, 27 
PEEK, 268-269, 279 
Pie Chart, 98-102 
Pie Chart program, 99 
explanation of, 98-101 
Picture element, 40 
Pixel, 40, 55 
Plot Specified Function in High- 
Resolution Mode program, 
181-182 
explanation of, 180, 182-188 


POINT, 75-78, 173, 207 
POINT Function in High- 
Resolution Mode program, 
174 
description of, 173 
POINT Function program, 78 
explanation of, 77 
POKE, 268-269, 279 
PRESET, 67-69 
PRINT, 69-71, 191, 202-207 
Print string, 161-162 
Print 255 PC Characters program, 
258 
explanation of, 257-258 
Print 255 PC Characters in Color 
program, 260 
description of, 259 
Program 
clearing, 38 
comments, 44-46 
editing, 41-42 
execution, 37-39 
lines, 43-44 
loading, 34, 39 
mode, 37-39 
numbering, 37-38 
renumbering, 38 
saving, 35, 39 
style, 44-46 
PrtSc key, 252 
PSET, 64-68, 75, 79, 82, 172-173 
PSET and PRESET program, 69 
explanation of, 68-69 
PSET Statement in High- 
Resolution Mode program, 
173 
description of, 173 
PUT, 103-112, 176, 191 
Option(s), 105-107 
AND, 107 
OR, 106-107 
PRESET, 106 
PSET, 106, 110-111 
XOR, 106, 109 
PUT Statement with PSET Option 
and Border program, 112 
description of, 111 
PUT Statement with PSET Option 
program, 108 
explanation of, 108 
PUT Statement with XOR Option 
program, 110 
description of, 109-110 
PUT Statement Options program, 
107 
description of, 107 


Index 


Racecar—Car program, 227 
explanation of, 225-227 
Racecar—Finished, Commented 
Version program, 229-230 
description of, 229 
Racecar—Finished Version 
program, 228 
explanation of, 227-229 
Racecar—Initial Screen program, 
222 
explanation of, 221 
Racecar—Moving Track program, 
225 
explanation of, 222-225 
RANDOMIZE, 222-225 
Reference string, 154 
Relative addressing, 72-74 
REM, 45-46 
Resolution, 40, 189-190 
RF modulator, 22 
RGB monitor, 19-22, 171-172 
Right-arrow key, 41 
RND, 224 
RUN 36, 38 
Run-time errors, 47-48 


s 


Screen aspect, 88-92 
Screen dump, 252 
SCREEN function, 207-210 
SCREEN Function program, 211 
explanation of, 209-210 
SCREEN statement, 57-58, 
192-195 
Screen(s) 
alignment, 259-260 
checking the, 248 
color graphics, 17-22 
dual, 17, 33-36 
monochrome, 190-191 
multiple, 190-191 
Scrolling, 70 
Scroll Window in Medium- 
Resolution Mode program, 
262 
explanation of, 261-262 
Scroll window, variable, 260-262 
Semicolons, 70, 145, 205-207 
Shift state, 252-254 
16 Background Colors program, 
62 
explanation of, 61-62 
Soft keys, 26, 38, 42-43 
Software, 27-28 
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Statement, 39-40 
BEEP, 219 
CIRCLE, 84-92, 175 
CLS, 65, 200 
COLOR, 60-63, 196-200 
DEF SEG, 236-237, 267-269 
DEFINT, 211 
DRAW, 133-150, 176-177 
END, 61 
FOR. . . NEXT, 60, 81 
GET, 103-112, 176 
KEY OFF, 200, 207 
LINE, 79-82, 173-174 
LOCATE, 70-71, 191, 200-202 
OUT, 236 
PAINT, 93-97, 175-176 
POKE, 268-269, 279 
PRESET, 67-69 
PRINT, 69-71, 191, 202-207 
PSET, 64-68, 75, 79, 82, 
172-173 
PUT, 103-112, 176, 191 
RANDOMIZE, 222-225 
REM, 45-46 
SCREEN, 57-58, 191-195 
STOP, 61 
WIDTH, 195-196 
STEP, 72-73 
STOP, 61 
Subcommands, DRAW 
A, 135, 142-145 
B, 135, 139 
C, 135, 140-141 
D, 135, 137 
E, 135, 137-138 
F, 135, 137-138 
G, 135, 137-138 
H, 135, 137-138 
by, 1353137 
M, 133-135 
N, 135, 140 
R135 137, 
S, 135, 141-142 
U, 135, 137 
X, 135, 147-149 
Subroutine(s), 153 
Switch program, 35 
explanation of, 34-35, 244, 247 
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Switch with error message 
program, 248 
description of, 247-248 
Syntax errors, 47 
SYSTEM, 31 


T 


Television set, 19-22 
connection box for, 22 
Text Character Set program, 207 
description of, 205 
Text in the graphics screen, 69-71 
Text mode graphics, 189-213, 
232-233 
Text-Mode Color Shading 
program, 206 
description of, 204 
Text-Mode Graphics program, 203 
description of, 202 
Text, nature of, 151-153 
Three Color Palettes program, 244 
description of, 243 
Tutorial, 52-232 
introduction to, 52-54 
summary of, 232-234 
Two-Adapter Graphics, 245 
explanation of, 245 


U 
Up-arrow key, 41 
Vv 
Variable 
INKEY$§, 86 


Variable Parameters to DRAW 
program, 146 
description of, 146 
Varying Aspect Ratio with CIRCLE 
Statement program, 91 
explanation of, 90-91 
Video 
memory-mapped, 266-267 


Ww 


Wedges, 86-88 
WIDTH, 195-196 
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SAMS 


Graphics 
for the IBM PC 


Some of the many features offered by this comprehensive book 
about IBM graphics programming include: 


e A tutorial approach to graphics 
e A fun way to broaden your BASIC knowledge 
e Extensive, well thought out example programs 


e A description of IBM graphics and directions for putting those 
graphics to use 


© How to design a video game 
@ How to program graphic displays 


e Valuable information gleaned from the experience of 
accomplished game authors 


Graphics for the IBM PC is intended for the nonspecialist 

in graphics, or computers in general. It is designed for 

home users who want to learn graphics and business users who 
desire to produce charts, graphs, and slides with ease. 
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